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NOTES & COMMENTS 


Editor’s Notes ^ 


Editor’s Notes The September editor’s notes for the Software Technical Bulletin (STB) include 

the current Sun software products and release levels table, current customer 
service hotlines available in the United Kingdom and Europe, and a Browse 
program. 


Current Sun Software Products The September Software Technical Bulletin (STB) includes the current version 
and Release Levels Table table. The current release level is shown for each product. 

Use this table along with STB articles that appear in one or two issues after a 
new current release is available for a particular product. You can then better 
determine what your software needs are, what functions are available in a new 
release, and whether the release you are using is down-level from the most 
current product release. 

UK and Europe Hotlines Look further into this Notes and Comments section for a listing of United 

Kingdom and European service hotlines. These phone lines are available for 
both software and hardware support questions. 


The Hackers’ Corner Again, please note that such applications, scripts, or code are not offered as 

released Sun products, but as items of interest to enthusiasts wanting to try out 
something for themselves. They may not not woik in all cases, and may not be 
compatible with future SunOS releases. Please consult your local shell script or 
programming expert regarding any application, script, or code problems. 


Thanks. 


The STB Editor 
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Sun Software Produce Releases 


Current Software Sun Products and Release Levels 


Product Name 

Current Release 

SunOS 

3.4 

Cross Compiler 

1.0 

SunLink BSC3270 

4.0 

SunLink Local 3270 

4.0 

SunLink SNA3270 

4.0 

SunLink IR 

4.0 

SunLink DON 

4.0 

SunLink DNI 

4.0 

SunLink OSI 

4.0 

SunLink TE100 

4.0 

SunLink X.25 

4.0 

News 

1.0 

Sun Common Lisp 

2.0 

Modula-2 

1.0 

SunAlis 

2.1 

SunGKS 

2,0 

SunINGRES 

5.0 

SunSimplify 

1.0 

SunUNIFY 

2.0 

TranScript 

2.0 

SunIPC 

1.1 

PC-NFS 

2.0 



Current Sun Software The table appearing above contains a list of current Sun software products and 

Products and Release Levels their respective current release levels. 


You will note that the Software Technical Bulletin (STB) contains articles from 
time to time that detail technical changes in a given software product’s next 
available release. 
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Please contact your sales representative if you decide that you would like to 
update the release level of a Sun software product you already use, or wish to 
purchase another product. Use the table below to determine whether your release 
is the current release level. 

This table appears monthly in the STB for your convenience. 
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European Hotlines 



European Service Hotlines 


United Kingdom 


France 


Germany 


The Netherlands 


Sun Customers in the United Kingdom and Europe have service hotlines 
available for both software and hardware support questions. The service hotlines 
are shown below. 


Camberley 
UK Headquarters 

Central/Northem Regions 
South West Region 
South East Region 

Munich 

Germany Headquarters 
Soest 

Netherlands Headquarters 


(44) 276 62111 

(33) 146302324 Paris HQ 
(33) 6144 4477 Toulouse 
(33) 7835 5141 Lyon 

(49) 89 926 9000 

(31) 2155 24888 


o 


o 
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Errata 



Errata Two typographical errors occur in the June 1987 STB, on page 230, in the In 

Depth article entitled ND Second Swap Space. 

In the second paragraph under the heading ‘Step Two: Edit /etc/nd. local’, 
pleasechange /etc, nd. local to /etc/nd. local in two places. 


®sun 

\r mierosystein* 


September 1987 






ARTICLES 


ARTICLES. 567 

Using USA-4-SUN. 567 

SunIPC Logical Hard Disks. 559 

Client UNIX Status. 577 

Disk/Controller Combinations. 580 

Read This First Purpose. 534 

o 


o 















ARTICLES 


Using USA-4-SUN 


Using 800 USA-4-SUN 



AU Sun customers may call the 800 USA-4-SUN phone line for assistance in the 
use of Sun software, hardware, and network products. This article explains what 
information you will need when you call, and how your call is routed to the 
service engineer who helps you. Your call will be routed to different support 
locations, depending on whether you have a support contract and on what type of 
product you are using that requires customer support. 

When calling the 800 USA-4-SUN number, you should always have the 
information listed below ready. If any of the information is not readily available, 
it may take longer to route your call properly. 

o workstation model and serial number 

□ purchase order (PO) number (for those customers not holding support 
contracts) 

□ name 

□ company or organization name and address 

□ SunOS release number (See the June STB short subject, page 205, to 
find how to determine your SunOS release level.) 

□ problem description 
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Routing Your Calls Many customers call after talking to their sales representatives. Others call 

‘cold’. In either case, you are prompted by a prerecorded message. It asks those 
not holding support contracts to have their PO number handy. The recording 
then asks you to dial a number, depending on the type of support needed. The 
current options are listed below. 

Dial 1 for software support 

Dial 2 for hardware support, including returning or exchanging parts 

Dial 3 to schedule the installation of a new system 

Dial 6 for telemarketing, to purchase customer service products or 
service contracts 

After you select a number, a service dispatcher will ask you for the information 
listed above and for a brief description of your problem. The dispatcher then 
uses your problem description to route your call to a support engineer who 
specializes in the product that is the subject of your phone call. 

The dispatcher logs your service call and wDl give you a service (SO) number 
that you may use as a reference to your call in future calls, mail, or email. Your 
call is now routed to specialists who answer calls for their particular subject 
matter area. 

You can now expect an engineer to return your call that same day, or during the 
next normal working day. 
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SunIPC Logical Hard Disks 



Creating a 30 Mbyte SunIPC Use die procedures shown in the Sun IPCP* User’s Guide, part number 814- 

Logical Hard Disk 1002, chapter 4, ‘Using Disks’ to create logical hard disks up to 20 Mbytes in 

size. 

Use the procedures contained in this article to create a 30 Mbyte SunIPC logical 
hard disk. 


Background and Requirements You may wish to increase the size of your SunIPC logical hard disk as your disk 

needs increase. Initially, your SunIPC logical hard disk occupies about 1 Mbyte 
of storage space. The name of this file(s) is /usr/pctool/drive_C.pcO 
through /usr/pctool/drive_C.pc3, depending on your having up to 
four SunIPC boards installed in your system. In this article the case of a single 
SunIPC board and file /usr/pGtool/drive_C.pcO is considered. 

The logical hard disk grows to approximately 10 Mbytes by default as users store 
more files or PC applications or both. The maximum disk size upper limit may 
be reset, allowing additional disk storage. 

You must have access to a SunIPC floppy disk subsystem to change the SunIPC 
logical hard disk size. You will create a bootable floppy before beginning the 
procedures in this article. This is required since the existing drive C is destroyed 
when changing the logical hard disk size. Note that you cannot backup your 
logical hard disk to an NFS server since it is not possible to boot SunIPC from a 
network device. 

Also note that it is best to change the logical hard disk size when you first receive 
the SunIPC board. Backup time at a later date may be greatly increased by your 
having many PC application programs stored on the logical disk. 

Two Procedures Use one of the two procedures shown in the following paragraphs, depending on 

whether you have an IBM AT Diagnostics diskette available. Use Procedure I if 
you have the disk, otherwise use Procedure II. 

Procedure I: IBM AT Use this procedure in the case that you have a copy of the DOS User’s Manual 

Diagnostics Diskette Available and an IBM AT Diagnostics diskette. 

1. Backup the SunIPC logical hard disk contents onto floppy disks. Use 
either the MS-DOS copy or backup command. See the DOS User’s 
Manual for command definitions if needed. The logical disk, drive C, 
contains the MS-DOS, NFS, GWBASIC, and system utility files 
included with the SunIPC board, plus any user files. 

Note that additional backup procedures may be required, depending on 
your application programs. Some application programs create ‘hidden’ 
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files that may not be copied unless you use a special backup procedure. 
This is part of some application programs’ software protection schemes. 
Refer to your application program user manual for any special backup 
procedures. 

2. Make a new system floppy disk. Insert a blank floppy disk in drive A. 
Move to directory c: \msdos and enter the command shown below. 

c:\msdos> format a:/s 

This command causes MS-DOS to copy the necessary system files from 
the SunIPC logical hard disk to the new system floppy disk. 

3. Use the MS-DOS copy command to transfer the files listed below 
from drive C to the new system floppy disk in drive A. Note that you 
need to copy the Restore .Com file only if you used the backup 
command instep 1. 

COMMAND.COM 
FDISK.COM 
FORMAT.EXE 
RESTORE.COM 

4. Remove the new system floppy disk from the SunIPC floppy disk drive 
A. Insert the IBM AT Diagnostics diskette and reboot the PCTOOL. 

5. From the menu that appears, select option four, setup, and press 
<Return>. 

6 . When prompted, verify the correct date and time. Change the date and 
time as required. 

7. When prompted with The following options have been set:.... Are these 
options correct (YIN)7, press <N> and then press <Return>. 

8 . When prompted with Are diskette drive types correct (YIN)?, press <Y> 
and then press <Return>. Do not change the floppy disk options. 

9. When prompted with Your fixed disk drive types are set to the 
following:.... Is this correct (YIN)?, press <N> and then press <Retum>. 

10. When prompted with How many fixed disks are installed?, press <1> 
and then press <Return>. 

11. When prompted with Enter fixed disk type (1-15) for fixed disk drive C., 
press <8> which signifies a 30 Mbyte hard disk. 

12. Check the next screen to ensure that you have entered the correct disk 
type and then press <Y> if correct. Press <N> if incorrect and then 
repeat steps 10 through 12. 
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13. Do not change any subsequent options. 

14. The final screen prompts you with the selected options and asks for 
verification that the options are correct. Oieck that the Fixed Disks 
Drive C - Type is t 5 tpe 8 for the 30 Mbyte hard disk. Also check that no 
other options were changed. Press <Y> if the options are correct and 
then press <Return>. Press <N> if the options are not correct, press 
<Return>, and then repeat steps 8 through 14. 

15. Remove the IBM AT Diagnostics diskette from the SunIPC floppy disk 
drive A. Insert the new system floppy disk you created in steps 2 and 3. 

16. Press <Retum> or use the mouse to reset the PCTOOL. 

17. Reboot the SunIPC from the new system floppy disk. You must 
reboot since you cannot change the disk size at the same time you are 
running SunIPC from that disk. 

18. Run the MS-DOS fdisk utility from the new system floppy disk. 
This modifies the existing drive C to enlarge the logical hard disk. 

19. Refertothe fdisk utility documentation in theDOiSI/^er’^ManMa/. 

20. First, select the third menu item, Delete DOS Partition. Second, select 
the first menu item. Create DOS Partition. Third, select the second 
menu item. Changing the Active Partition. 

21. The fdisk utility forces you to reboot SunIPC again from the new 
system floppy disk once the utility has finished changing the logical hard 
disk partition. 

22. Format the logical hard disk by entering the command shown below. 

> format c:/s/v 


Procedure II: IBM AT 
Diagnostics Diskette not 
Available 


23. Copy the files from the backup floppy disk(s) you created in step 1 onto 
the new, 30 Mbyte SunIPC logic^ hard disk. Use either the MS-DOS 
copy or the restore command, depending on whether you used the 
copy or the restore command to create the backup floppy disk(s). 

24. Reboot the SunIPC from the logical hard disk on drive C. 

The procedure is completed. You are now ready to use the SunIPC as usual. 

Use this procedure in the case that you do not have a copy of the DOS User’s 
Manual and an IBM AT Diagnostics diskette. You will use the MS-DOS 
debug command to enlarge the size of the SunIPC logical hard disk. 
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Again, note that up to four SunIPC logical hard disks may be installed on your 
system. They use files /usr/pctool/craos_rain.pcO through 
/usr/pctool/cinos_ram.pc3, respectively. In this article the case of a 
single SunIPC board and file /usr/pctool/cmos_ram. pcO is considered. 

1. Backup the SunIPC logical hard disk contents onto floppy disks. Use 
either the MS-DOS copy or backup command. See the DOS User’s 
Manual for command definitions if needed. The logical disk, drive C, 
contains the MS-DOS, NFS, GWBASIC, and system utility files 
included with the SunIPC board, plus any user files. 

Note that additional backup procedures may be required, depending on 
your application programs. Some application programs create ‘hidden’ 
files that may not be copied unless you use a special backup procedure. 
This is part of some application programs’ software protection schemes. 
Refer to your application program user manual for any special backup 
procedures. 

2. Make a new system floppy disk. Insert a blank floppy disk in drive A. 
Move to directory c: \msdos and enter the command shown below. 

c:\msdos> format a:/s 

This command causes MS-DOS to copy the necessary system files from 
the SunIPC logical hard disk to the new system floppy disk. 

3. Use the MS-DOS copy command to transfer the files listed below 
from drive C to the new system floppy disk in drive A. Note that you 
need to copy the Restore .Com file only if you used the backup 
command in step 1. 

COMMAND.COM 
FDISK.COM 
FORMAT.EXE 
RESTORE.COM 

4. From a UNIX window, copy file /usr/pctool/cmos_ram.pcO to 
a file named cmos-tmp in a directory that is both accessible and 
mountable via PC-NFS. 

5. From a PCTOOL or a PC running PC-NFS on your network, continue 
with this procedure and perform the following steps. 

6. Use the PC-NFS NET USE command to mount the UNIX directory 
containing the cmos-tmp file you made in step 4. An example is 
shown below. 

NET USE <?>: \\<host>\<dir>... 
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7. Change the current hard disk to the PC-NFS volume by issuing a ?: 
where ?: is the drive designation you used in the NET USE command 
example shown in step 6. 

8 . Type the DOS command debug cmos-tmp and then press 
<Retum>. 

9. You now see the debug prompt, a dash, on die left side of the screen. 
The next 16 steps (steps 10 through 25) are done from the debug 
prompt. Note that <sp> signifies typing a space using the space bar, and 
<Retum> signifies pressing the <Return> key. Type each command 
exactly as shown in steps 10 through 25. 

10. e <sp> 100 <Return> 

11. 26<Retuni> 

12. e <sp> 102 <Return> 

13. 16<Return> 

14. e <sp> 112 <Retum> 

15. 80<Retuin> 

16. e <sp> 114 <Retum> 

17. 33<Return> 

18. e <sp> 12F <Return> 

19. 55<Return> 

20. e <sp> 142 <Return> 

21. 45 <Return> 

22. e <sp> 143 <Retum> 

23. 4A<Retun£> 

24. w<Return> 

25. q<Retum> 
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-d cstlOO 
33CC:0100 

33CC:0110 

33CC:0120 

33CC:0130 

33CC:0140 


26. Type the DOS command debug cmos-tmp and then press 
<Retum>. You will again see the debug prompt, a dash. 

27. d <sp> cs:100 <sp> L44 <Retum> 

28. Check that the screen obtained from step 27 contains the new values you 
entered in steps 10 through 23. A sample screen is shown below with 
the actual changes highlighted with asterisks (**). 


L44 

26 00 16 00 15 00 06 04-03 87 26 02 50 80 00 00 &.&.P... 

** ** 

20 00 80 00 33 80 02 00-00 00 00 00 00 00 00 00 ...3. 

** ** 

00 00 00 00 00 00 00 00-00 00 00 00 00 00 01 55 ....u 

■k it 

00 00 19 80 00 00 00 00-00 00 00 00 00 00 00 00 . 


20 4C 45 4A 
* * * ★ 


29. If your screen obtained from step 27 matches the screen shown above, 
go to step 32, skipping steps 30 and 31. 

30. If your screen obtained from step 27 does not match the screen shown 
above, from the debug dash prompt, type the debug command q 
and then press <Retum>. 

31. Type the MS-DOS command del cmos-tmp and then press 
<Retum>. Go to step 4, and repeat this procedure by repeating steps 4 
and 5. Then skip step 6, and repeat steps 7 through 29. 

32. From the debug dash prompt, type the debug command q and then 
press <Retum>. 

33. If steps 6 through 32 were issued from a PCTOOL, use the right mouse 
button to‘quit’the PCTOOL. 

34. Begin working from a UNIX window on a Sun workstation. 
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For Further Information 


35. Copy the cmos-tmp file edited in this procedure to file 

/usr/pctool/cmos_ram.pcO. Note again that this procedure 
assumes that only one SunIPC logical hard disk is on your system. Up 
to four IPC boards may be installed using files 
/usr/pctool/cmos_ram.pcO through 

/usr/pctool/cmos_ram,pc3, respectively. 

36. Insert the new system floppy disk you created in steps 1 through 3 into 
drive A. 

37. Open a SunIPC window by entering pctool and pressing <Return> 
which boots from the new system floppy disk. 

38. Run the MS-DOS fdisk utility from the new system floppy disk. 
This modifies the existing drive C to enlarge the logical hard disk. 

39. Refer to the fdisk utility documentation in the DOS User’s Manual. 

40. First, select the third menu item, Delete DOS Partition. Second, select 
the first menu item. Create DOS Partition. Third, select the second 
menu item. Changing the Active Partition. 

41. The fdisk utility forces you to reboot SunIPC again from the new 
system floppy disk once the utility has finished changing the logical hard 
disk partition. 

42. Format the logical hard disk by entering the command shown below. 

> format g:/s/v 

43. Copy the files from the backup floppy disk(s) you created in step 1 onto 
the new, 30 Mbyte SunIPC logical hard disk. Use either the MS-DOS 
copy or the restore command, depending on whether you used the 
copy or the restore command to create the backup floppy disk(s). 

44. Reboot the SunIPC from the logical hard disk on drive C. 

Regardless of whether you used procedure I or II, the resulting file 
cmos_ram ,pc0 (for one SunIPC board) will now expand to a maximum of 30 
Mbytes. 

See the SunIPC™ User’s Guide, part number 814-1002, chapter 4, ‘Using Disks’ 
for a discussion that includes the additional topics appearing below. 

□ differences between logical and physical hard disks 

□ creating a board-independent autoexec .bat file 
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o installing PC applications 

o using disk drives D through V to work with NFS files 

□ reducing the logical hard disk size 

□ changing the logical hard disk location 
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Client UNIX Status 



Determining UNIX Status on Local netwoik-related commands, such as net stat and etherf ind, arc not 

a Client suitable for remote use. Therefore, when developing a program to monitor the 

status of UNIX of a given file server’s clients, provide Ms information using a 
Remote Procedure Call (RPC) to specific software. Several methods can be 
used. 

In addition to traffic (1C) with ether (8C), as described in the 
Commands Reference Manual, part number 8(X)-1295-04, the following can be 
used: 

□ ping 

o rpc. statd (daemon) 
o rpc. etherd (daemon) 

□ Poitmap pmap_rintcall 

The information returned by each of these methods varies the meaning of the 
status of the remote machine and network or both. 


ping ping refers to the imc echo packet, which reports whether or not the kernel 

has gone through the initialization process enough to initialize the Inter-Process 
(IP) code, ping keeps trying to send the packet and to report the reply until 
either a specified timeout period has elapsed, or a reply is received. The default 
timeout period is 20 seconds. 

Thus, ping can be used to determine whether a remote machine is halted or 
powered on/off. However, it cannot be used to determine whether or not a user 
can remotely log in to the machine, using rlogin. It cannot be used to 
determine whether or not the user can send or receive Network File System 
(NFS) requests or responses to the remote machine. 

If the remote machine is operating in multi-user mode, the user is usually able to 
rlogin, as well as send and receive NFS requests responses. If rlogin is 
unsuccessful, the NFS server can be pinged by calling the null procedure of the 
NFS server, similar to the function of rcpinf o. 

Additional information on the use of ping and rpcinf o is included in the 
Commands Reference Manual, part number 800-1295-04. 
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rpc .etherd 


rpc.rstatd 


pmap_rmtcall 


A Simple ping Script 


rpc. etherd is a server which puts the appropriate interface into promiscuous 
mode, and keeps summary statistics of all packets received on that interface. It 
reports whether or not the host is sending or receiving packets, because much 
network traffic on clients consists of Network Disk (ND) and NFS requests 
generated in response to user programs running on those clients, rpc.etherd 
is used because the kernel does not specifically send out any status packets. The 
user must be root to use rpc. etherd. 

rpc. etherd is useful only on local networks. For additional information, 
refer to the etherd (8C) description in the Commands Reference Manual, part 
ntimber 800-1295-04, and the ether {3R) description in the UNIX Interface 
Overview manual, part number 800-1341-02. 


rpc. rstatd is used for obtaining performance statistics from the kernel, and 
are graphically displayed by the perf meter, rpc.rstatd reports whether 
or not the rstat daemon is running. If the rstat daemon is running, this 
usually indicates that the remote machine is operating in multi-user mode. This 
also indicates that the network is functioning and can successfully respond to the 
user. 

Additional information on the use of rpc.rstatd is included in the 
Commands Reference Manual, part number 800-1295-04. 


The problem described in using rpc. rstatd, above, can be avoided by using 
pmap_rmtcall to determine whether or not the rstat daemon is running, 
and so indicate that the remote machine is operating in multi-user mode, as well 
as proper functioning of the network. pmap_rmtcall is a user interface to 
the portmap service, which instructs portmap residing on the host at the IP 
address *addr to make an RPC call on the user’s behalf to an RPC procedure 
on that host. 

One consideration to keep in mind is that pmap_rmtcall cannot notify the 
user if the network is having problems. For example, the foUowing network 
status messages, normally appearing in the user’s console screen as well as in the 
/usr/adm/messages file, are not returned by pmap_rmtcall. 

ieO: no carrier 

ieO: Ethernet jammed 


Additional information on the use of pmap_rmtcall is included in the 
manual Networking on the Sun Workstation, part number 800-1324-03. 


The following ping script can also be used to determine the status of clients. 
This script is especially useful within smaller networks where gateways are not 
involved. Keep in mind that this script does not check for ypbind, nor does it 
allow for the user to specify the net number and timeout as optional arguments. 
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Note that the timeout on the call to ping is set at 15 seconds; you may prefer a 
shorter or longer timeout period. 

#!/bin/csh -f 

foreach host ( 'ypcat hosts I grep 192.9.201 ! awk '{print $2}'' ) 
/usr/etc/ping $host 15>/dev/null 

if ($status ““ 0) then #if host is up 

echo $host 

endif 

end 


Due to a limitation with ping, this script should not be run in two or more 
windows simultaneously. 



Q 
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Disk/Controller Combinations 

V_y 


Identifying Controller and It is often necessary for users to determine the controller/disk configuration of 

Disk Configurations their Sun hardware. Use the following guidelines to determine the existing 

hardware configuration on different systems. 


Deskside Pedestal Label Deskside pedestals have the following information included on a label located on 

Information the front cover of the pedestal. This label is visible after removing the gray 

faceplate. 


DISK DRIVE CONHGURATION 

DRIVE 

0 

1 

FUJITSU 

□ 

□ 

VERTEX 

□ 

□ 

MICROPOLIS 

□ 

□ 

OTHER 

□ 

□ 

OTHER 




The appropriate disk(s) contained in the pedestal will be marked on this label. 

The pedestal label does not specify the disk information listed below. 

o Disk interface type -- Small Computer System Interface (SCSI), or 
Storage Module Disk (SMD) 

□ Disk capacity 

□ Disk model designation 

The disk interface type can be ascertained as shown below. 

□ Disks contained within the CPU pedestal are SCSI-type disks. 

o Disks within expansion pedestals are SMD-type disks. 

The disk capacity and model designation or both can be usually ascertained fiom 
the following information. 
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Sun-3 ‘Shoebox’ Disk Newer Sun-3 disk subsystems (commonly referred to as ‘shoeboxes’) have a 

Subsystem Label Infoimation small label affixed to the rear. For 71MB disk subsystems, the label appears as 

shown below. 


DISK DRIVE CONHGURATION 

FUJITSU □ MICROPOLIS 1325 □ 


For 141MB disk subsystems, the label appears as shown below. 


DISK CONFIG 


□ MICROPOLIS 1355 

□ TOSHIBA MK156FA 


All Sun-3 disk subsystems utilize the SCSI interface. 


Sun-3 System Controller and The following lists the controller and disk combinations used in Sun-3 systems. 
Disk Combinations 
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Sun-3 ‘Shoebox’ Disk Subsystems; 

71MB 

Adaptec controller. Disks are primarily Micropolis 1325 and 

Fujitsu M2243AS. 

141MB 

Emulex controller. Disks are Micropolis 1355 and 

Toshiba MK156F. 

Sun-3/160 with SCSI Disk(s) in the CPU Pedestal 

71MB 

Adaptec controller. Disks are primarily Micropolis 1325 
and Fujitsu M2243AS. 

141MB 

Emulex controller. Disks are Micropolis 1355 and 

Toshiba MK156F. 

Sun-3/160 and 3/260 with SMD Disks in an Expansion Pedestal: 

280MB 

Xylogics 451 controller. Disk is the Fujitsu M2333. 

Rack-mount SMD Disks; 

575MB 

Xylogics 451 controller. Disk is the Fujitsu M2361 Eagle XT 
(also known as the ‘Super Eagle’). 


Sun-2 System Controller and 
Disk Combinations 


The following lists the controller and disk combinations used in Sun-2 systems. 





September 1987 









Section 2 — Articles 583 


Sun-2 ‘Shoebox’ Disk Subsystems: 

71MB 

Adaptec controller. Disks are primarily Micropolis 1325 and 

Fujitsu M2243AS. 

lOOUwith SMDDisk(s): 

‘84MB’ 

Xylogics 450 controller. Fujitsu M2312K disk. 

This combination is also referred to as a ‘FAT’ box, for 

Fujitsu-disk and Archive Tape. 

Sun-2/120 with SCSI Disk($) in the CPU Pedestal: 

42MB 

Adaptec controller. Disks are Micropolis 1325 
and Maxtor XT-1050. 

71MB 

Adaptec controller. Disks are primarily Micropolis 1325 
and Fujitsu M2243AS. 

Sun-2/130 and Sun-2/160 with SCSI Disk(s) in the CPU Pedestal: 

71MB 

Adaptec controller. Disks are primarily Micropolis 1325 
and Fujitsu M2243AS. 

Sun-2/120, Sun-2/130 and Sun-2/160 with SMD Disk(s) in an Expansion Pedestal: 

130MB 

Xylogics 450 controller. Disk is the Fujitsu M2322. 

Rack-Mount SMD Disks: 

‘169MB’ 

Xylogics 450 controller. Disk is the Fujitsu M2284. 

This is only found in 150U and Sun-2/170 systems. 

380MB 

Xylogics 450 controller. Disk is the Fujitsu M2351 Eagle. 
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Read This First Purpose 


Using the Read This First 
(RTF) Document 


The RTF Format 


Copying and Distributing the 
RTF to Other Users 



This article contains a discussion of the purpose and use of the Read This First 
(RTF) document provided with all Sun Microsystems software. 

The primary purpose of the RTF is to provide the user with current, pertinent 
information about the corresponding software product This includes installation 
considerations of importance to system administrators when instaUing a new 
product or upgrading an existing product. Additionally, details are provided of 
new or changed features of importance to product users. 

Read the RTF thoroughly before beginning the installation or upgrade since 
much of this information should be kept in mind at that time. 


The format of the RTF is designed to include the items listed below. 

□ Software compatibility with Sun system hardware and operating system 
release levels 

□ Environmental requirements, such as physical space and minimum swap 
space needed for proper operation 

□ Product or release anomalies or both 

□ How to get help 

The RTF is the designated document to include information describing 
installation and usage problems encountered during the final testing of the 
product. These descriptions usually include workaround methods. The RTF also 
describes any errors in the product documentation, as weU as the revised form, 
reflecting the current state of the product. 

In some locations, the individual responsible for installing product software does 
not actually use the product. In these situations, the person installing the 
software will want to have copies of the RTF made for internal distribution to the 
Sun Workstation end-users. This ensures that information affecting product use 
is provided to developers and users of the corresponding product and dependent 
applications. 

The primary contact person or department may duplicate the ‘master’ RTF copy 
for all Sun Workstation end-users, as weU as to those who need the information. 
So long as the copies are duplicated and routed internally to employees working 
for a company having the product license, there are no copyright infringement 
problems. 
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This limited pemiission is for the convenience of Sun customers only. It does 
not include any other Sun documentation, nor does it permit any duplication for 
resale or distribution outside your company. 
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STB SHORT SUBJECTS 


lockd and Dumping Core 



Running /etc/rpc.lockd 
and /etc/rpc.statd 

Concurrently 



Customers have observed a problem with /etc/rpc.lockd which fails in 
the case that /etc/rpc. statd is not running at the same time. 

The network lock daemon (/etc/rpc.lockd) fails if the network status 
monitor (/etc/rpc. statd) is not also running, /etc/rpc. lockd enters 
a loop trying to contact /etc/rpc.statd and allocates memory which it 
never frees. This eventually causes /etc/rpc. lockd to terminate without 
any message. This may also affect other processes since swap space is used up 
by /etc/rpc. statd. 


The Workaround This problem has been reported as bug ID number 1004739 and will be fixed in a 

future SunOS release. The workaround is to ensure that both 
/etc/rpc. statd and /etc/rpc. lockd are running. The default startup 
is for both /etc/rpc.statd and /etc/rpc.lockd to be started. 
Generally, you should not expect to see this problem. 


o 
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tty and Tenninal Displays 



Virtual tty Lines and 
Terminal Display Problems 


The Problem Defined and 
Solved 


Terminal displays may become garbled when someone logs onto a virtual tty 
line (/dev/ttyp?), usually via rlogin(l), and finds processes running 
from the previous user of the virtual tty line. 

Such problems have been observed while running SunOS release 3,2, They 
interfere with proper terminal displays when using vi, for one example. Merely 
killing the ‘left-over’ processes does not correa the problem. 

This problem is caused by some tenninal size attributes being reset only when 
the last process closes the terminal. If someone logs in and kills all of the ‘left¬ 
over’ processes, the tty line is not reset and the new processes continue to use the 
old settings. 

On SunOS release 3.2 and later systems, add the following code to the . login 
file to correct the problem. Note that this code implies /bin/ csh. 

if ($term != "sun") then 

stty everything |& fgrep -s columns 
@ setscreensize != $status 
if (Ssetscreensize) stty rows 0 cols 0 
endif 


^sun 

microsystems 


September 1987 





Section 3 — STB Short Subjects 591 


Optimizing Read Times 

tunefs(8) to Optimize Read 
Times 

The Default Value 


Resetting the Default Value 

The -o Optimization 
Preference Option 


In case you find your disk read and write times a little slow for your application, 
consider resetting a default value for tunefs(8) to reduce overall read and write 
time. 

You can use tunrfs(8) to change certain dynamic parameters in the superblock 
which the kernel uses when laying out the file system. 

The rotdelay flag -d specifies the time expected to service a transfer 
completion interrupt and to initiate a new transfer on the same disk. This flag is 
used to decide how much rotational spacing to place between successive blocks 
in a file. 

The rotdelay default value is set to 4 msec. This optimizes the read time at 
the expense of the write time. In one case, this defatilt value resulted in 30 
seconds to write 10 Mbytes, and only 12 seconds to read the 10 Mbjhes. This 
default setting resulted in an overall read and write rate of 341 kbytes/second. 

By increasing the rotdelay parameter to 5 msec, the write time is reduced 
and the read time is increased. Both would then be about 17 seconds, resulting in 
a reduced overall read and write rate of 602 kbytes/second. Note that these 
transfer rates are based on the number of urformatted bits per second that pass 
under the read head. Your rates wiU vary. 

Also note that tunefs(8) does not report a current default setting unless you try to 
change it. You might have a piece of paper handy to write down your old values 
before trying any experiments. 

You may find an imdociunented option, -o, useful. This option sets the 
optimization preference to either ‘time’ to minimize allocation time or ‘space’ to 
minimize disk fragmentation and disk space used. 
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SunAlis 1.0 Support Ends 


Discontinuation of Support 
for SunAlis Release 1.0 


SunAlis Software Upgrade 
Program 


Discontinuation of Telephone 
Support 



The short subject describes the plan to discontinue SunAlis Release 1.0 support 

New features, functions, and performance enhancements included in SunAlis 
Release 2.0 provide faster operation and greater product reliability than SunAlis 
Release 1.0. For these reasons. Sun strongly recommends that SunAlis 
customers upgrade from Release 1.0 to Release 2.0. 

SunAlis Release 2.0 has been automatically shipped free of charge to all Sun 
customers holding SunAlis support contracts. In addition. Sun is offering 
SunAlis Release 2.0 free of charge to SunAlis licensees without support 
contracts. This free upgrade offer to customers not holding SunAlis support 
contracts is a one-time offer. In the future, customers without SunAlis support 
contracts will be charged for upgrade releases of the product. 

The following information is required to obtain the Release 2.0 upgrade. 

□ Your company name, contact name, address, and phone number 

□ The original sales order number for SunAlis Release 1.0 

□ The date of purchase 

o The machine type(s) running SunAlis Release 1.0 

Mail this information to the address below. 

Ms. Carol Adams 
SunAlis Marketing Manager 
Sun Microsystems, Inc. 

M/S A4-40 

2550 Garcia Avenue 

Mountain View, CA 94043 

Effective November 1,1987, Sun will not provide telephone support for SunAlis 
Release 1.0, since improvements in Release 2.0 correct most of the problems 
reported with Release 1.0. Therefore, if you are using SunAlis Release 1.0 and 
encounter any problems with the product, please upgrade to Release 2.0 to verify 
the existence of the problem with Release 2.0 before calling for assistance. 
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SunView 2: A New Platform 



An Introduction to SimView 2 This in-depth article gives a genferal overview of Sun Microsystem’s plans to port 

the SunView user interface toolkit to a new window system platform. You wiU 
find a summary of the changes this new platform will introduce to SunView’s 
programmatic interface. This article provides an early direction for application 
developers working with the current SimView. 

Overview The SunView graphical, window-based environment has become familiar to both 

end-users and application developers over the past year. Sun Microsystems has a 
strong commitment towards maintaining SunView as a stable basis for 
continuing development in the fliture. This commitment is reflected in the 
decision to move the SunView^ environment from its current SunWindows base 
to the newly announced X.ll/NeWS platform. The new version of SunView will 
be called SunView 2. 


Audience This and future SunView 2 compatibility documents are intended for use by the 

experienced SunView application developer who is familiar with the current 
SunView and its underlying platform, SunWindows. Application developers 
new to SunView should read the SunView Programmer’s Guide, part number 
800-1345, prior to investigating the changes described in this article. 

SunView and SunView 2 Attribute names do not change, the current event structure is maintained, and 

Differences Pixf ont continues to be supported. 


SunView 2 SunView 2 is a new version of the current SunView user interface toolkit 

designed to run on the X.l 1/NeWS window system. It provides a migration path 
for moving existing SunView applications onto X.ll/NeWS, and delivers 
network flexibility for SunView 2 applications. 


^ h this document, ‘SunView’ without a ‘2’ after it refers to the current SunView product, which first 
shipped with SunOS release 3.0. SunView has been enhanced and included in each release since SunOS 
release 3.0. 
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When? 


Network SunView 


Why Are There Changes? 


SunView 2 Changes 


SunView 2 on the X.ll/NeWS platform will become available on Sim 
workstations in the spring of 1988. SunView 2 will be the basis for future 
SunView enhancements. However, in addition to SunView 2, SunView on 
SunWindows will continue to be included with Sun workstations, in order to 
allow Sun customers to make a graceful transition fix)m the earlier to the later 
version. 

X. 11/NeWS is a server-based window system. The display manager, or window 
server, is a single, user-level process on the machine with the physical display. 
Applications ask the server to draw on the screen and to notify them of user-input 
events. 

SunView 2 applications will inherit many of the benefits provided by a server- 
based window system. They will be able to run on one machine and display their 
output in windows on another machine anywhere on the network. They will also 
be able to run on different X.ll/NeWS servers using a variety of display 
hardware. 

Moving from SunWindows to X.ll/NeWS involves changing from a kernel- 
based to a server-based architecture, and from a machine-specific to a portable 
platform.^ The programmatic interface to SunView must change - the 
underlying system is fundamentally different. For example, in a server-based 
system, window applications carmot access the display themselves, since the 
display may reside on another machine. They must ask the window server to 
draw on the display for them. 

The SunView 2 Changes paragraphs that follow include a discussion of the 
planned changes and likely incompatibilities between SunView and SunView 2. 

Future window-system technology will be server-based. Sun will give your 
applications the ability to run applications across many machine types on a 
heterogeneous network. This will be accomplished by developing a new version 
of an existing toolkit. This will be a fuU-featured user interface which will use 
the new generation of window servers. By migrating SunView onto the 
X.ll/NeWS platfonn. Sun lets you move your existing SunView applications 
onto a state-of-the-art window system. The applications which are included with 
SunView (textedit, cmdtool, mailtool, perfmeter, dbxtool, 
and so forth) will continue to provide both users and developers a productive, 
integrated working environment. 

Compatibility with the current SunView is the primary goal of SunView 2. 
Compatibility has been preserved except where change was necessary to make 
SunView work well in the X.l 1/NeWS environment. 


* See the Technical Overview, part number 800-1498-05, for a discussion and comparison of different 
window system technologies. 
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Overview While SunView 2 is not completely compatible with the current SunView, large 

areas of the programmatic interface will remain xmchanged. Much of the 
SunView Programmer’s Guide will remain unchanged as noted below. 

□ The structure of applications need not change. 

Programs will look the same as before -- first object creation, then 
installation of notify procedures, and then window_main_loop () to 
begin processing. 

□ The philosophy and organization of SunView does not change. 

The same basic window types (frames, canvases, panels, text 
subwindows, and tty subwindows) and objects (menus, icons, cursors 
and scrollbars) win carry over with most of the same attributes. 

Most of the changes that have been made result from moving the SunView 
interface to a server-based window system. These changes are summarized 
below. 

□ Windows are no longer pseudo-devices (with FDs) that you open, since 
the underlying window system is not kernel-based. 

□ You no longer have access to some data structures, since they now 
reside in the server. 

o You cannot access the screen directly, since it is controlled by the 
server. Note that it may even be on another machine. 

□ SimView 2 does not include many of the routines from SunOS releases 
prior to release 3.0. Such routines predate SunView. Further, SunView 
2 does not include many of the lowest-level routines that support the 
current SunView. Functionality at this level is the responsibility of the 
X.ll/NeWS server. 

SunView 2 is highly compatible with the current SunView at the higher level of 
the SunView packages. The higher-level packages in SunView are implemented 
in SunView 2. Such packages include the window types and objects mentioned 
above, and the notifier. 

The current SunView is based on the SunWindows kernel-based window system, 
and the Pixrect drawing library. Some of the lower-level SunWindows and 
Pixrect routines are implemented by the X.l 1/NeWS server, some by SunView 2, 
and some are not supported. The programmatic interface to directly access 
X.ll/NeWS functionality from SunView 2 is being designed at this time. 


Compatibility with the Current 
SunView 


Some Compatibility with Lower 
Levels 


Incompatibility with Pre- Many pre-SunView window routines will no longer be supported. These are 

SunView Routines routines documented in the outdated SunWindows Reference Manual from 

SunOS releases l.X; and the Programmer’s Reference Manual for SunWindows, 
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part number 800-1167, for release 2.X. In particular, compatibility does not 
extend to low-level SunWindows features that predate SunView such as 
SIGWINCH, struct tool, and struct toolio. 

See the diagram shown below for the relationships among SunView, SunView 2 
and SunOS releases. 



Differences and 
Incompatibilities 


Windows 


Cursor and Icon structs 


Relationship of SunView, SunView 2, and SunOS Releases 

The following paragraphs describe specific areas of incompatibility between 
SimView 2 and the current SimView. Packages not mentioned here (panels, 
menus, and the like) are generally fuUy compatible, although other areas of 
incompatibility may arise as implementation progresses. 

There is no access to windows by their WlN_FDs, since windows are not 
devices in a server-based window system. One advantage is that the UNIX 
limitation on the number of file descriptors per process no longer restricts the 
number of windows in an application. 

Some SunWindows routines that use window FDs wiU not be supported. In 
SunView 2, windows have an opaque window ID in place of an FD-number. For 
compatibility, the WIN_FD attribute will retrieve the window ID. Wherever 
possible, routines that are currently passed a window FD will work with this 
window ID. See the SunView System Programmer’s Guide, part number 800- 
1342, for such routines. 

You will be able to create cursors and icons dynamically only. You wiU not be 
able to create them staticaUy using the #define_CURSOR_from_image 
and #DEFINE ICON FROM IMAGE routines. 
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Cursors 


Stacking Menus 


menurompt () 


Input 


Pixwins 


You wiU not be able to access the fields in the cursor and icon structs. 

=> You should convert access to these structs into icon/cursor 
create 0, set (), and get () calls now. 

The X.ll/NeWS server supports a mask-type cursor. Therefore, not all cursor 
RasterOp logical operations can be provided by the X. 11/N server. 

Crosshairs are not supported by Ihe X.l 1/NeWS server. 

Old-style, stacking menus from SunOS release 1.1 will not be converted to 
SunView 2. Since SimOS release 3.0, Sun has provided a fuU-featured, waUdng 
menu package, with much greater functionality. In SunOS release 4.0, users will 
get the new-style menus by default. Note that the old-style menus will continue 
to be available, for downward compatibility. 

=> You should convert to the new menu package as soon as possible to save 
conversion effort when SunView 2 becomes available. 


Support for the old SimWindows menu_prompt () routine will be removed in 
SunView 2. Sun is introducing the alerts package in SunOS release 4.0 as a 
replacement for menu_prompt {). Alerts provide improved functionality 
compared with menu_j>rompt (}. As with old-style menus, 
menu_j>rompt () wiU continue to be available, again for downward 
compatibility. 

=> When SunOS release 4.0 becomes available, you should convert aU uses of 
menu_prompt () to the new alerts package. 

The X.ll/NeWS server does not support SunView’s current click-to-type model, 
since it does not have separate pick and keyboard input masks. 

The pixwin struct is not included in SunView 2. Pixwins in SunView 2 
wiU be strictly opaque objects. You wiU not be able to access their fields. 

However, SunView 2 has the same imaging model as in the current SunView, 
and most pw_* () routines will be supported. Some new window attributes will 
be available to manipulate pixwins. 

SunView 2 wiU not support pixwin regions since the pw_region () wiU no 
longer exist You wiU create multiple windows instead. 

Other unsupported pixwin calls include routines for locking, batching, and 
double-buffering. Fimctionality at this level is the responsibility of the 
X.ll/NeWS server. 


In SunView 2, there is no pixiect associated with a pixwin that you can use to 
draw directly on the screen. Pixwins are not based on pixrects in SunView 2. 
They are an interface to drawing routines implemented on the server. 
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Pixrects 


Fonts 


Repaint 


Different Internals 


You will not be able to use pr_open (/dev/fb) to open a pixrect which 
represents a remote screen. Also, you wiU not be able to use pixrect calls to draw 
on the X.ll/NeWS server’s screen.'^ Drawing at the pixrect level usually implies 
‘going around’ the window system anyway. 

However, the Pixrect package will remain unchanged. You can continue to build 
and manipulate pixrects as you do now. Pixrects can be created from files 
produced by iconedit, just as before, and the current rasterfile formats will 
continue to be supported. A similar interface wiU be provided for remote 
pixrects — pixrects whose bit images reside in the X.l 1/NeWS server, not in your 
program. 

Pixwin routines that take one or more pixrect arguments such as pw_rop (), 
pw_replrop 0 , and pw_batchrop () will only be able to use memory 
pixrects as arguments. 

You can load only the fonts that are available to the X.ll/NeWS server. 
However, after loading a font, you can continue to access the bits in its glyphs 
since the Pixf ont struct remains unchanged. 

You can ask the server to make a window retained. However, there is no 
guarantee that it wifi, have the resources to retain all the pixels of the window in 
memory. 

Applications that use canvases to draw on must be prepared to repaint them¬ 
selves. This has always been recommended in the current SunView, and 
now in SunView 2 as well. 

The X.ll/NeWS server has a different architecture than kernel-based 
SunWindows. Thus most of the low-level routines giving clients access to the 
internals of the current window system do not apply to the new platform. The 
following listed chapters of the SunView System Programmer’s Guide cover the 
internals of SunView on SunWindows. Much of their information, therefore, will 
not apply to SimView 2. 

o SunView System Model 

o The Agent and Tiles 

□ Windows 

□ Desktops 

□ Workstations 


^ If the screen is on the same machine, client programs not using SunView 2 can continue to use the 
raw Pixrect package to draw on the screen as before. 
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Virtual User Input Devices 


□ Advanced Imaging 
o Window Management 

Similar facilities are provided by the X.ll/NeWS server. Similar functionality 
will be available for clients who access the window system at this low level. 

The X.ll/NeWS server provides support for input devices. The SunView VUID 
interface layer is not supported. 
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Q&A, and Tip of the Month 


QUESTIONS, ANSWERS, HINTS, 

AND TIPS 

'-N 

V_ ^ 


Hints & Tips #6 This is the sixth in a continuing series of this colunm which I have created for 

two purposes.^ First, some questions are asked regularly on the AnswerLine. I 
feel everyone can benefit from distributing discussions of these problems as 
widely as possible. Second, a large and constantly growing body of information, 
hints, and tips arc not documented anywhere. 

I will collect and distribute these information nuggets in this continuing column 
so that we can all learn from them. I will cover unusual topics, but this column 
should not be used as an alternative to contacting your support center or using the 
AnswerLine. 

If you have a question that you would like answered in this column, please mail 
your question to ‘Software Technical Bulletins’ at Sun Microsystems, Inc., 2550 
Garcia Avenue, M/S 2-312, Mountain View, CA 94043. You can also send in 
your question by electronic mail to sun!stb-editor. U. S. customers can caU Sun 
Customer Software Services AnswerLine at 800 USA-4-SUN for technical 
questions on this column or any other article in this bulletin. I look forward to 
hearing from you! 

Avoiding Quota Delays Is it sometimes very slow to log onto your Sun? Does it seem to take forever 

from typing the password to getting your prompt? If your answers are yes, you 
are likely getting delayed by quota checking done at login time. 

Even if you are not running the quota system and quotas are not configured into 
your kernel, the program /usr/ucb/quota is executed by /bin/login. 
‘Quota’ will take a look at every mounted file system, both local and NFS. For 
each NFS file system, it sends an RPC request to the server and requests that it 
verify that you are not over quota. 


^ Ihis continuing column is submitted by Chuq Von Rospach, Customer Software Services. 
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Tip of the Month (TOM) 


This checking can take considerable time if you have a large number of file 
systems mounted on your machine. The checks are done sequentially. This can 
cause additional delays if quota hangs until its check request times out. This can 
be caused by any of the three following conditions. 

□ one of the mounted file systems is down 

□ the NFS server is running a SunOS release older than release 3.0 

□ rpc. quoted is not running 

It is possible on a machine with a large number of NFS mounts or a down server 
to cause a login procedure to take two or three minutes in the worst case! 

Fortunately, there are two ways around this problem. If you do not run quotas 
anywhere in your organization, it is possible to disable the /usr/ucb/quota 
program completely by replacing it with a symbolic link to the /bin/true 
program as shown in the example below. 

# cd /usr/ucb 

# mv quota quota.hold 

# In -s /bin/true quota 


Please note, do not simply delete or move /usr/ucb/quota, or the login 
program will fail. 

This example does not woik if some of your machines are mnning quotas since it 
removes the quotacheck completely. If you want to check quotas on some 
machines but not on others, you can use the noquota option in 
/etc/f stab. If you add noquota to the mount options on all of the file 
systems that are not under quota control, the /usr/ucb/quota program wiU 
skip them and not try to verify the quota over the network. An example f stab 
entry for this is shown below. 

blurf1:/usr/blurfl /usr/blurfl nfs rw,noquota,soft,bg 0 0 

By removing the quota checks from the file systems that are not under quota 
control, you can remove most of the time delays you are seeing while logging in. 

This month’s Tip of the Month includes a few hints on making your mouse more 
responsive. There are a number of variables you can set with Defaults edit 
that can make your mouse work more to your liking. If you start up 
Defaultsedit and go to the Input section, you will see the options 
‘Jitter_Filter’ and ‘SpeedJEnforced’. By default, these options are On and Yes, 
respectively. However, these options are useful only to very early machines such 
as the lOOU. For Sun2, Sun3, and Sun4 machines, these two options should be 
turned off. 

Another improvement you can make is to modify the Mouse Motion Scaling. By 
default, the distance you move the mouse corresponds directly to the distance the 
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mouse-arrow is moved on the screen. If you change the scaling, though, you can 
cause the mouse-arrow to move faster on the screen than you move the mouse on 
the mouse tablet. A good set of defaults to get you started are shown below, 

/Input/lst_ceiling "1" 

/Input/l3t_factor "1" 

/Input/2nci_ceiling "16” 

/Input/2nd_factor "2" 

/Input/3rd_ceiling "32" 

/Input/3rd_factor "3" 

/Input/4th_ceiling "65535" 

/Input/4th_factor "5" 

Once you do this, you need to make sure diat input_f roin_def ault s is run 
when you log onto your workstation. Note to run it only when you are on the 
console, since you do not want to change the defaults for someone else 
accidentally! Put this the following in your . login file. 

if ('tty’ == /dev/console) input_from_defaults 


Your mouse customization will now be active next time you log in. 
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Browsing Mail Conveniently 


Browser, A Mail Program 


The Script 


Browser 



THE HACKERS’ CORNER 



The Browser program introduced in this article has been developed by several 
programmers, consultants, and enthusiasts interested in tool development. 
Browser is a graphical, SimView-based application for viewing files and 
directories. It has been developed over a period of time and has been widely 
tested, especially in the United Kingdom. 

The Browser program is submitted to the STB from Sun Europe. The program 
appears at the end of this article. 


Comments on Browser program features, improvements, or the user interface are 
welcomed. Please send them to sunfstb-editor. I will then forward them to Sun 
Europe. 

Please consult your local shell script or programming expert regarding any script 
or code problems. The Browser source archive is not offered as a supported Sun 
product, but as an item of interest to enthusiasts wanting to try out something for 
themselves. Note that the program may not work in all cases, and may not be 
compatible with future SunOS releases. 

Browser has evolved over time. The most recent features are shown below. 

a takes an optional directory argument, and passes window arguments; 
robust to problems with the initial directory 

□ stretches text display horizontally, has scrollbars in any orientation; and 
incorporates any plane-group combination for aU Sun 3 systems 

□ understands small fonts, though it enforces a maximum font size 
a the tool icon now labeled with the directory name when closed 
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o uses cmdtool if TERM is sun-cmd for SunOS release 3.4, 
otherwise uses SHELLTOOL from the environment for shells 

o allocates the canvas and directoiy ‘cache’ dynamically, reducing 
memory overhead 

□ removes the restriction on the maximum permitted directory entries 

□ contains scrollbars that reflect the directory size 

Notes on Usage Browser is a window-based application containing a canvas on which a graphical 

representation of the current directory is displayed. The archive contains icons 
for the different types of objects in the file system. 

Selecting an object now selects that object only. Selection is now integrated with 
the SunView selection mechanism. You must ‘double-click’ or use the menu to 
actually view the object. 

You can select an item by pointing at it and clicking the left mouse button. The 
name of the file or directory then becomes the SunView selection as well. This is 
the relative pathname, except in the case of ‘.’. In this case it is more useful to 
provide the full, absolute pathname. 

‘Double-clicking’ the left mouse button lets you view the selected object. 
Directories cause Browser to change directory into them and display their 
contents on the canvas. Files then are displayed as text sub-windows. Objects 
are displayed in reverse-video upon selection, and then are displayed in mid-grey 
while being accessed. 

A menu is displayed when you click the right mouse button, allowing editing or 
deleting of files (not directories). Greyed-out items on the canvas or menu 
signify that you do not have sufficient file-access permissions. 

Pressing and holding the control key while ‘double-clicking’ or selecting from 
the menu starts a separate text edit process for the file, in lieu of using a 
pop-up window. You can then view multiple files easily. In the case of a 
directory, the control key starts another Browser process in that directory. 

Choices on the menu quickly take you to the root directory (JO, home ($HOME), 
and the previous directory just as if you had followed a symbolic link. Note that 
the previous directory is not the same as Another accelerator prompts you, 
asking for the name of the directory you want. You can also take the desired 
directory name from a source outside the tool. For example, you may select the 
directory name from pwd in a shelltool, and then choose ‘view’ from the 
menu. 

Browser Program Installation Follow the steps listed below to install the Browser application. 
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1. Save the mail you receive in a file as filename. 

1. Edit the file to remove everything above the line containing 
# ! /bin/ sh. This saves the shar portion of the mail message. 

3. sh <filename> <ietum> 

4. make browser <retum> 

5. browser <retum> 
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#! /bin/sh 

# this is a shell archive, meaning: 

# 1. Remove everything above the #! /bin/sh line 

# 2. Save the resulting text in a file. 

# 3. Execute the file with /bin/sh to create the files: 

# Makefile 

# browser.h 

# br_canv.c 

# br_main.c 

# br_menu.c 

# br_seln.c 

# br_text.c 

# confirm.c 

# bbad.icon 

# bblk.icon 

# bcha.icon 

# bdir.icon 

# bexe.icon 

# bfil.icon 

# brca.icon 

# brok.icon 

# brow.icon 

# This archive created: Tue Jun 30 12:08:05 BST 1987 
export PATH; PATH=/bin:$PATH 

# 

if [ -f Makefile ] 
then 

echo shar: will not over-write existing file Makefile 
else 

echo shar: extracting 'Makefile', 326 characters 

cat > Makefile «'Funky_Stuff' 

# 

# browser - makefile 

# 

LIBS = -Isuntool -Isunwindow -Ipixrect 

BROBJS = br_main.o br_canv.o br_text.o br_seln.o br_menu.o confirm.o 
BRSRC = br_main.c br_canv.c br_text.c br_seln.c br_menu.c confirm.c 
browser : $(BROBJS) 

$(CC) $(CFLAGS) $<LDFLAGS) $(BROBJS) $(LIBS) -o browser 

sources : $(BRSRC) 

$(BRSRC) : 

sees get $@ 

Funky_Stuff 

len='wc -c < Makefile' 

if [ $len != 326 ] ; then 

echo error: Makefile was $len bytes long, should have been 326 

fi 
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fi # end of overwriting check 

if [ -f browser.h ] 

then 

echo shar: will not over-write existing file browser.h 
else 

echo shar: extracting 'browser.h', 3301 characters 

cat > browser.h «'Funky_Stuff' 

/* 

* browser.h - include file for browser global data 

* 

* 

*/ 


finclude <suntool/sunview.h> 
#include <sunwindow/notify.h> 
#include <suntool/canvas.h> 
tinclude <suntool/scrollbar.h> 
♦include <suntool/textsw.h> 


/* SunView header files */ 


♦include <stdio.h> 
♦include <sys/stat.h> 
♦include <sys/dir.h> 
♦include <sys/file.h> 


/* system header files */ 


extern int errno; 


extern char br_name[]; 
extern char br_version[]; 

extern struct stat sbuf/ 
extern struct stat *sp; 


/* version status */ 

/* buffer for file stats */ 


extern Frame ba3e_frame, /* directory frame */ 

view_frame; /* edit pop-up */ 

extern Canvas canvas/ /* directory window */ 

extern Pixwin *pw; /* pixwin of that window */ 

extern Scrollbar vertical_sb, /* for scrolling directory */ 

horizontal_sb; 

extern Menu action_menu; /* file menu */ 

viewsw; /* edit window */ 

scratch; 


extern Textsw 
extern Textsw 


/* scratch window */ 


♦define SEMI_SCROLL_FILES 100 
♦define SEMI_SCROLL_COLS 8 
♦define SPACE_WIDTH 10 
♦define IMAGE_SIZE 64 
♦define NAME OFFSET 47 


/* ({IMAGE SIZE/2)+15) */ 


♦define BR_SCROLL_TO__TOP TRUE 

♦define BR DONT SCROLL FALSE 


♦define BR CONTINUE 


TRUE 
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#define BR_GETVALUE 2 

extern int maxcols; /* width of canvas in images */ 

extern int noindir; /* number of directory entries */ 

extern char home_dir[]; /* users home directory */ 

extern char root_dir[]; /* root directory */ 

extern char real_dir[]; /* current directory */ 

extern char last_dir[]; /* last current directory */ 

/* not .. if followed symbolic link */ 
extern char text_dir[]; /* where textsw contents came from */ 

extern char sel_dir[]; /* current selection */ 

extern char name_stripe[]; /* frame stripe buffer */ 

#ifdef DEBUG 

extern int debug; /* trace status */ 

#endif 

struct dir_disp { 

char dname[256]; 
int dmode; 
int dx; 
int dy; 

Pixrect *dicon; 

}; 

extern struct dir_disp *d_start; 
extern struct dir_di3p *dptr; 

extern char shelltool[]; /* user preferred shelltool */ 

fdefine highlight(aptr) image_rop(aptr, PIX_NOT(PIX_DST), (Pixrect *)0) 

extern Pixrect bdir_pr; 
extern Pixrect bblk_pr; 
extern Pixrect bcha_pr; 
extern Pixrect bexe_pr; 
extern Pixrect bfil_jpr; 
extern Pixrect bbad_pr; 

/* from br_main,c */ 

extern int sort_ents(); 
extern void scan_dirO; 

extern void sort_dir(); 

extern void do_delete(); 

extern void do_dir(); 

extern int good_dir(); 

/* from br_menu.c */ 

extern void init_menu(); 

extern Menu_item do_menu(); 

extern void do default action(); 


/* our record of dir entry */ 
/* file name */ 

/* file mode, 0 = bad stat */ 

/* pixel co-ord of image */ 

/* associated image */ 
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extern void do action{); 


/* from 

br canv 

.c * 

/ 

extern 

void 


image_rop () ; 

extern 

void 


clear_canvas(); 

extern 

void 


init_canv () ; 

extern 

void 


resize_canvas{); 

extern 

void 


resize_canvas_window() 

extern 

struct 

dir_ 

disp *identify(); 

extern 

int 

double_click 0 ; 

extern 

void 


show_aotion_started(); 

extern 

void 


show_action_stopped(); 

extern 

void 


track_selection() ; 

extern 

void 


select_proc (); 

extern 

void 


draw_dir (); 

extern 

void 


name_rop () ; 

/* from 

br_text 

-C * 

/ 

extern 

void 


init_text(); 

extern 

int 

ok_ 

_to_reset () ; 

extern 

void 


check_done (); 

extern 

Notify_ 

value check_quit <) ; 

extern 

void 


do edit(); 


extern void do_process(); 


Funky_Stuff 

len=''wc -c < browser.h' 

if [ $len != 3301 ] ; then 

echo error: browser.h was $len bytes long, should have been 
f i 

fi # end of overwriting check 

if [ -f br_canv.c ] 

then 

echo shar: will not over-write existing file br_canv.c 
else 

echo shar: extracting 'br_canv.c', 9596 characters 

cat > br_canv.c «'Funky_Stuff' 

/* 

* br_canv.c - canvas routines for browser 

* 

★ 

*/ 

#include "browser.h" 

#include <sys/time.h> 

char br_canv_sid[] = {#)br_canv.c 1.5 6/30/87"; 

Q int tracking = FALSE; /* state variables - ugh */ 

int spawning = TRUE; 
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long click_timeout; 
int click._space; 
int last_x =0; 
int last_y =0; 

struct timeval tnow; 
struct timeval tlast; 
struct timezone tzone; 

char *rindex(); 


/* image definitions */ 


static short brow_image[] = { 
#include "brow.icon" 

}; 

static mpr_static(brow_j>r, 64, 

static short bfil_image[] = { 
#include "bfil.icon" 

}; 

static mpr_static(bfil_pr, 64, 

static short bdir_image[] == { 
#include "bdir.icon" 

); 

static mpr__static (bdir_pr, 64, 

static short bexe_image[] = { 
#include "bexe.icon" 

}; 

static mpr_static(bexe_pr, 64, 

static short bbad_image[] = { 
#inolude "bbad.icon" 

}; 

static mpr static(bbad pr, 64, 

Static short bblk_image[] = { 
#include "bblk.icon" 

}; 

Static mpr_static(bblk_pr, 64, 

static short bcha_imagel] = { 
♦include "bcha.icon" 

}; 

static mpr_static(bcha_j)r, 64, 


/* icon for program */ 

64, 1, brow_image); 

/* regular file image */ 

64, 1, bfil_image) ; 

/* directory image */ 

64, 1, bdir_image); 

/* executable image */ 

64, 1, bexe_image); 

/* unknown image */ 

64, 1, bbad_image); 

/* block device image */ 

64, 1, bblk_image) ; 

/* character device image */ 

64, 1, bcha_image); 


/* mask definitions 

static short graY25[16] = { /* 

♦include <images/square_25.pr> 

1 ; 


static mpr_static(gray25_pr, 16, 16, 1, 


*/ 

25 % gray pattern*/ 


gray25); 
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static short gray_out[16] = { /* 50 % gray pattern */ 

finclude <images/square_50.pr> 

}; 

static mpr_static (gray_out_pr, 16, 16, 1, gray_out); 


Pixfont *br_font; 
int f_width, f__height; 
int name_split; 


/* font in use */ 

/* max character size in pixels */ 
/* where to split long name */ 


void 

image_rop(ptr,op,mask) 
struct dir_disp *ptr; 
int op; 

Pixwin *mask; 

{ 

/* draw or modify a file image */ 


if ( ptr != NULL ) 

pw_rop(pw,ptr->dx,ptr->dy, IMAGE_SIZE, IMAGE_SIZE,op,mask,0,0)/ 
#ifdef DEBUG 
else 

if (debug) 

fprintf (stderr,’'image_rop: null pointer (ignored) \n") ; 

} 

o #endif 
void 

clear_canvas(scroll_to_top) 
int scroll_to_top; 

/* clear the canvas and scroll to top left */ 


#ifdef DEBUG 
if (debug) 

fprintf(stderr, "clearing canvas\n"); 

#endif 

pw_writebackground(pw, 0, 0, window_get(canvas, CANVAS_WIDTH), 
window_g6t(canvas, CANVAS_HEIGHT), PIX_CLR); 

if (scroll_to_top) 

scrollbar_scroll_to(vertical_sb, 1) ; 
scrollbar_scroll_to(horizontal_sb, 1); 

) 



void 

init_canv() 

/* hook icons to frames ~ this is not really canvas stuff 
but all other icon material is in here */ 
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Icon brow_icon; 

brow_icon = icon_create( 

ICON_IMAGE, &brow_pr, 

ICON_LABEL, 

0) ; 

window_set(base_frarae, FRAME_ICON, brow_icon, 0); 

/* create scrollbars for canvas */ 

vertical_sb = scrollbar_create{SCROLL_LINE_HEIGHT, 20, 

0 ) ; 

horizontal_sb = scrollbar_create(SCROLL_LINE_HEIGHT, 20, 

0 ) ; 

canvas = window_create(base_frarae, CANVAS, 

CANVAS_FAST_MONO, TRUE, 

CANVAS_AUT0_SHR1NK, FALSE, 

CANVAS_FIXED_IMAGE, FALSE, 

WIN_VERTICAL_SCROLLBAR, vertical_sb, 
WIN_HORIZONTAL_SCROLLBAR, horizontal_sb, 

WIN_CONSUME_PICK_EVENTS, 

WIN_MOUSE_BUTTONS, 

LOC_^DRAG, 

0, 

WIN_EVENT_PROC, select_proc, 

0 ) ; 

/* check the font is okay */ 

br_font = (Pixfont *)window_get(canvas, WIN_FONT); 
if ( br_font == NULL 

I I ( f_width = br_font->pf_defaultsize .X ) > 8 
I I ( f_height = br_font->pf_defaultsize.y ) >16 

) 

( 

br_font = pf_open("/usr/lib/fonts/fixedwidthfonts/screen.r.14"); 

if { br_font “= NULL ) 

{ 

perror("screen.r.14"); 
exit(1); 

} 

f_width = br_font->pf_defaultsize.x; 
f_height = br_font->pf_defaultsize.y; 


name_split = IMAGE_SIZE / (£_width + 1); 
pw = canvas_pixwin(canvas); 


^sun 

xr mtereisystems 


September 1987 






Section 6 — The Hackers’ Comer 621 



/* determine and check double-click options (use text ones) */ 


click__space = defaults_get_integer_check( 
”/Text/Multi_click_space", 

3, /* default */ 

0, /* min */ 

IMAGE_SIZE, /* max */ 

0 ) ; 

cliok_timeout = lOOOL * (long)defaults_get_integer_check( 
"/Text/Multi click timeout". 


390, 

/* 

default */ 

100, 

/* 

min */ 

1000, 

/* 

max */ 

0) ; 




} 

void 

resize_canvas(width,height) 
int width,height; 



window_set(canvas, 

CANVAS_WIDTH, width, 

CANVAS_HEIGHT, height, 

0 ) ; 

} 

void 

resize_canvas_window() 

{ 

window_set(canvas, 

WIN_WIDTH, (int)window_get(canvas, CANVAS_width) 

+ (int)scrollbar_get(vertical_sb, SCROLL_WIDTH), 
WIN_HEIGHT, (int)window_get(canvas, CANVAS__HEIGHT) 

+ (int)scrollbar_get(horizontal_sb, SCROLL_HEIGHT), 

0 ); 


} 

struct dir_disp * 
identify(x,y) 

{ 

/* map pixel selection co-ordinates to a file */ 
int srow,scol; 

struct dir_disp *retptr = NULL; 

srow = (y - SPACE_WIDTH) / (1MAGE_SI2E + SPACE_WIDTH); 
scol = (x - SPACE WIDTH) / (IMAGE SIZE + SPACE WIDTH); 


retptr = d_start + ( srow * maxcols + scol ); 



if ( scol >= maxcols [| retptr >= d_start+noindir ) 

( 

retptr = NULL; 

} 

tifdef DEBUG 
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if (debug) 

fprintf(stderr, "active file %x %s\n", retptr, 

(retptr != NULL)?retptr->dname;"void"); 

#endif 

return(retptr); 

} 

int 

double_click(event) 

Event *event; 

{ 

int d_clicked = FALSE; 
long usees; 

int now_x, now_y, dis_x, dis_y; 

now_x = event_x(event); /* where are we ? */ 

now_y = event y(event); 

gettimeofday(Stnow, &tzone); /* what is the time ? */ 

usees = tnow.tv_usec; 

dis_x = {now_x > last_x)?(now_x - last_x):(last_x - now_x); 
dis_y = (now_y > last_y)?(now_y - last_y):(lastly - now_y); 

/* check that time elapsed since last click is less than timeout 
and that movement is less than maximum allowed */ 

if ( tnow.tv_sec == tlast.tv_sec + 1 ) 
usees += 1000000; 

if ( ! ( tnow.tv_sec > tlast.tv^sec + 1 ) 

&& ( usees - tlast.tv_usec < click_timeout ) 

&& dis_x <= click_space && dis_y <= click_space ) 
d_clicked = TRUE; 

tlast.tv_sec = tnow.tv_sec; 
tlast .tv__usec = tnow.tv_usec; 
last_x = now_x; /* 

last_y = now_y; 

return( d_clicked ); 

) 

void 

show_action_started() 

{ 

if ( dptr != NULL ) 

{ 

highlight(dptr); 

pw_replrop(pw, dptr->dx, dptr->dy, 

IMAGE_SIZE,IMAGE_SIZE , 

PIX_SRC " PIX_DST, 

(Pixrect *)&gray25_pr, 
dptr->dx, dptr->dy); 

sun 
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} 

} 

void 

show_action_stopped() 

{ 

if ( dptr != NULL ) 

{ 

pw_replrop(pw, dptr->dx, dptr“>dy, 

IMAGE_SIZE,1MAGE_SIZE, 

PIX_SRC “ PIX_DST, 

(Pixrect *)&gray25_pr, 
dptr->dx, dptr->dy) ; 

highlight(dptr) ; 

} 

} 

void 

track_seln(event) 

Event *event; 

{ 

struct dir__disp *olddptr = NULL; 

olddptr = dptr; /* where we were */ 

dptr=identify(ev6nt_x(event), event_y(event));/* where we are */ 

if ( olddptr != dptr ) /* moved? */ 

if ( olddptr != NULL ) 
highlight(olddptr); 

if ( dptr != NULL ) 
highlight(dptr); 

} 

) 

void 

select_proc(window, event, arg) 

Window window; 

Event *event; 
caddr_t arg; 

/* called by notifier when events occur on canvas */ 

#ifdef DEBUG 

if ( debug ) 

fprintf(stderr,"event %d received\n", event_id(event)); 

#endif 

spawning = event_ctrl_is_down(event)?TRUE:FALSE; 

switch ( event__id(event) ) 

{ 

case MS RIGHT: 
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if ( event_is_down(event) ) 

{ 

menu_show(action_menu, 
window, 

canvas_window_event(canvas,event), 

0 ) ; 

} 

break; 

case LOC_DRAG: 

if ( tracking ) 

track_seln(event); /* continue tracking */ 

break; 

case MS_LEFT; 

if ( event_is_down(event) ) 

{ 

tracking = TRUE; /* start tracking */ 
unset__selection() ; 
track_seln(event); 

} 

else if ( tracking ) 

{ 

/* left button up */ 

if ( dptr != NULL ) 

{ 

if ( double_click(event) ) 
do_default_action 0 ; 

/* dptr is stale if we did a cd */ 

if ( dptr != NULL ) 

set_3election(dptr->dname); 

} 

tracking = FALSE; /* stop tracking */ 

} 

break; 

case LOC_RGNEXIT: 
if ( tracking ) 

{ 

if ( dptr != NULL ) 

{ 

highlight(dptr); 
dptr = NULL; 

} 

tracking = FALSE; 

} 

break; 

} 

} 

void 



o 
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draw_dir(scroll_to_top) 
int scroll_to_top; 

/* draw_dir0 actually does the drawing. 

The pixwin calls are batched for efficiency. */ 


Icon brow icon; 


#ifdef DEBUG 

if ( debug ) 

fprintf(stderr, "drawing directory\n"); 

#endif 

dptr = d_start; 



pw_batch_on(pw); 

clear_canvas(scroll_to_top); 

while ( dptr < d_start+noindir ) 

{ 

image_rop(dptr, PIX_SRC, dptr->dicon); 

name_rop(dptr->dx, dptr->dy+NAME_OFFSET, dptr->dname); 

if ( access(dptr->dname,R_OK ) != 0 ) 

{ 

pw_replrop(pw, dptr->dx, dptr->dy, 

IMAGE_SIZE,IMAGE_SIZE , 

PIX_SRC & PIX_DST, 

(Pixrect *)&gray_out_pr, 
dptr->dx, dptr->dy); 

} 

dpt r++; 

} 

pw_batch__of f (pw) ; 

sprintf(name_stripe, "%s %s - %s (%d entries)", 
br_name, 
br_version, 
real_dir, 
noindir); 



brow_icon = (Icon)window_get(base_frame, FRAME_ICON); 
icon_set(brow_icon, ICON_LABEL, (rindex(real_dir, '/')+!), 0); 

window_set(base_frame, 

FRAME__LABEL, name^stripe, 

FRAME_ICON, brow_icon, 

0 ) ; 

dptr = NULL; /* ensure no file is active */ 
unset selectionO; 
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1 

void 

name_rop(x, y, onp) 
int x,y; 
char *onp; 

{ 

char c = '\0'; 
int 1,twice_split; 
char nnp[256]; 
char *np,*lp; 

strcpy(nnp,onp); /* save name in local buffer */ 

np = nnp; /* may need to offset base */ 

1 = strlen(np); 

twice_split = name_split * 2; 

if ( 1 > twice_split ) /* too long for only two lines */ 

{ 

np += 1 - twice_split; 

*np = ; 

} 

Ip = np + name_split; /* second half */ 

if ( 1 > name_3plit ) /* write first half */ 

{ 

c = *lp; 

*lp = '\0'; 

} 

pw_text(pw, X + 4 , y, PIX_SRC, br_font, np); 

if ( c != '\0' ) /* write second half */ 

{ 

*lp “ c; 

pw_text(pw, x+4, y+15, PIX_SRC, br_font. Ip); 

} 

} 

Funky_Stuff 

len='wc -c < br_canv.c’' 

if [ $len != 9596 ] ; then 

echo error: br_canv.c was $len bytes long, should have been 9596 

fi' 

fi # end of overwriting check 

if [ -f br_main.c ] 

then 

echo shar: will not over-write existing file br_main.c 
else 

echo shar: extracting 'br_main.c', 6867 characters 

cat > br_main.c «'Funky_Stuff' 

/* 
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* browser - a graphical tool for viewing/editing files and directories 

* 

★ 

*/ 

#include "browser.h" 

#include <sys/param.h> /* for NOFILE */ 

char br_main_sid[] = "0(#)br_main.c 1.5 6/30/87"; 

char br_name[] = "Browser"; /* version status */ 

#ifdef MERGED 

char br_version[] = "1.6(M)"; 

#else 

char br_version[] = "1.6"; 
fendif 


struct 

stat sbuf; 

/* 

buffer for file stats */ 

struct 

stat *sp = &sbuf; 



Frame 

base_frame. 


/* directory frame */ 


view frame; 

/* 

edit pop-up */ 

Canvas 

canvas; 

/* 

directory window */ 

Pixwin 

*pw; 

/* 

pixwin of that window */ 

Scrollbar vertical_sb. 


/* for scrolling directory */ 


horizontal_sb; 



Menu 

action__menu; 


/* file action menu */ 

Textsw 

viewsw; 

/* 

edit window */ 

Textsw 

scratch; 

/* 

scratch window */ 

int maxcols = 0; 


/* width of canvas in images */ 

int noindir = 0; 


/* number of directory entries */ 

char 

home_dir[256] = 

«1 II » 

f 

/* users home directory */ 

char 

root_dir[256] = 

II ! fi 

; /* root directory */ 

char 

real_dir[256] = 

nil » 

t 

/* current directory */ 

char 

last_dir[256] = 

111! • 

t 

/* last current directory */ 


/* not 

.. if followed symbolic link */ 

char 

sel_dir[256] = ""; 

/* current selection */ 

char 

name_stripe[256] 

} 

/* frame stripe buffer */ 

#ifdef 

DEBUG 



int 

debug = FALSE; 


/* trace status */ 


#endif 

struct dir_disp *d._start; /* base of directory cache */ 

struct dir_disp *dptr; /* current entry in cache */ 

char shelltool[256] = "shelltool"; /* user preferred shelltool */ 

char *malloc(); 
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#ifdef MERGED 

browser_main(argc, argv) 

#else 

main(argc, argv) 

#endif 
int argc; 
char **argv; 

{ 

/* initialisation */ 
int i; 

char *hp,*getenv0; 

if ( (hp = getenv ("HOME")) i— NULL )/* where is home */ 
s t rcpy(home_dir, hp) ; 

if ( (hp = getenv("TERM")) != NULL && strcmp(hp, "sun-cmd") == 0 ) 

strcpy(shelltool, "cmdtool"); 
else if ( (hp = getenv("SHELLTOOL")) != NULL ) 

strcpy(shelltool, hp); 

/* if we exec from another window based tool, all kinds of 
material is left open; close it all to avoid 
running out of fds when we exec ourselves */ 

for ( i = 3 ; i < NOFILE ; i-l-+ ) 
close(i); 

base_frame = window_create(0, FRAME, 

FRAME_SHOW_LABEL, TRUE, 

WIN_HEIGHT, 0, 

WIN_WIDTH, 0, 

WIN__ROW_HEIGHT, IMAGE_SIZE + SPACE_WIDTH, 

WIN_COLUMN_WIDTH, IMAGE_SIZE + SPACE_WIDTH, 
FRAME_ARGC_PTR_ARGV, &argc, argv, 

0 ) ; 

view_frame = window_create(base_frame, FRAME, 

FRAME_SHOW_LABEL, TRUE, 

FRAME_DONE_PROC, check_done, 

0) ; 

init_seln(); 
init_text(); 
init canv(); 


o 


o 


init menu() ; 


notify_interpose_destroy_func (base__f rame, check_quit) ; 
if ( argc > 1 ) 
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{ 

if ( good_dir(argv[l]) ) 

{ 

do_dir(argv 11]); 

} 

else 

{ 

perror(argv[1]); 
exit(1); 

} 

} 

else 

{ 

if ( good_dir(".") ) 
do_dir("."); 

} 

else 

{ 

perror (•'. ; 

exit (1); 

} 

} 

resize_canvas_window{); 
window_fit(base_frame) ; 
window_main_loop(base_frame); 
exit_seln () ; 
exit (0) ; 


int 

sort_ents(pl,p2) 
struct dir_disp *pl; 
struct dir_disp *p2; 

/* called from qsort to compare two entries */ 
return ( (int)strcmp{ pl->dname, p2->dname ) ); 

} 

void 

scan_dir() 

{ 

/* read and sort the directory */ 



struct dir_disp *dptr; 

DIR *dir_header = opendir(real_dir); 
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struct direct *dp = readdir(dir_header); 
#ifdef DEBUG 

if ( debug ) 

fprintf(stderr,"scanning %s\n",real_dir) ; 

#endif 


if ( d_start != NULL ) 
free{d_start); 

if ( ( d_start == 

(struct dir_disp *)malloc(sizeof(struct dir_disp)) ) == NULL ) 

{ 

user_conf irm ("inalloc", TRUE, errno) ; 
return; 


dptr = d_start; 


noindir = 0; 


while ( dp != NULL ) 

{ 

if ( dp->d_fileno != 0 ) 

{ 

strcpy(dptr->dname, dp->d_name);/* name */ 

if ( stat( dptr->dname, sp ) <0 )/* mode */ 

{ 

dptr->dmode = 0; 


dptr->dinode = sp->st^mode; 


switch( dptr->dmode & S_IFMT ) 

( 

case S_IFDIR: 

dptr->dicon = &bdir_pr; 
break; 

case S_IFBLK: 

dptr->dicon = &bblk__pr; 
dptr->dmode =0; 
break; 

case S_IFCHR: 

dptr->dicon = &bcha_pr; 
dptr->dmode =0; 
break; 

case S_IFREG: 

if ( dptr->dmode & S_IEXEC ) 
dptr->dicon = &bexe_pr; 

else 

dptr->dicon = &bfil_pr; 
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break; 
default; 

dptr->dicon = &bbad_pr; 
dptr->dmode =0; 
break; 

} 

noindir++; 

d_start = (struct dir_disp *)realloc(d_start, 
sizeof(struct dir_disp)*(noindir+1)); 

if ( d_Start == NULL ) 

{ 

user_confirmC'realloc”, TRUE, errno) ; 
return; 

} 

dptr = d_start + noindir; 

} 

dp = readdir(dir_header); 

} 

closedir(dir_header) ; 

) 

void 

sort_dir() 

{ 

struct dir__disp *dptr; 

int row = 0; 
int col = 0; 
int width,height; 

/* sort the entries */ 

qsort( (char *)d_start, noindir, sizeof(struct dir_disp), sort_ents); 

/* set required canvas size */ 

if ( noindir < SEMI_SCROLL_FILES ) 
maxcols = SEMI_SCROLL_COLS; 

else 

maxcols = (1152 - 20 - SPACE^WIDTH)/ 

(IMAGE_SIZE + SPACE_WIDTH); 

width = ((IMAGE_SIZE + SPACE_WIDTH) * maxcols) + SPACE_WIDTH; 

height = ((noindir / maxcols) + 

((noindir % maxcols)?1:0) ) 

*(IMAGE_SIZE + SPACE_WIDTH) 

+ SPACE_WIDTH; 

resize_canvas(width, height); 

/* allocate image positions */ 
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dptr = d_start; 

while ( dptr < d_start+iioindir ) 

1 

dptr->dx = col * (IMAGE_SIZE + SPACE_WIDTH) 
+ SPACE_WIDTH; 

dptr->dy = row * (IMAGE_SIZE + SPACE_WIDTH) 
+ SPACE_WIDTH; 

col++; 

if ( col >= maxcols ) 

col =0; 
row++; 

} 

dptr++; 

} 



I 


i 


! 


} 

void 

do_delete{) 

{ 

char mybuf[256]; 

struct dir_disp *nptr = dptr + 1; 

Sprintf(mybuf, "Confirm that you wish to delete %s", dptr->dname); 

if ( user_confirm<mybuf, FALSE, FALSE ) ) 

{ 

if ( unlink{dptr->dname) < 0 ) 

{ 

sprintf(mybuf, "unlink %s", dptr->dname); 
user_confirm(mybuf, TRUE, errno); 

) 

else 

{ 

while ( nptr < d_3tart+noindir ) 

( 

#ifdef DEBUG 
if (debug) 

fprintf(stderr, "compress %x %x %s\n", dptr, nptr, nptr->dname); 

tendif 

strcpy(dptr->dname,nptr->dname); 
dptr->dmode = nptr->dmode; 
dptr->dicon = nptr->dicon; 
dptr++; 
nptr++; 

} 

noindir—; 

draw_dir(BR_DONT_SCROLL) ; 

} 
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} 


} 

do_move() 

{ 


user_confirm("Option not currently available" 

} 


BR_CONTINUE, FALSE); 


void 

do_dir(new_dir) 
char *new_dir; 

{ 

/* cd to named directory and display */ 

char mybuf[80]; 

if ( chdir(new_dir) < 0 ) 

{ 

sprintf(mybuf,"chdir %s", new_dir); 
user_confirm(mybuf, TRUE, errno); 

> 

else if ( strcmp(nev7_dir, != 0 ) 

{ 

strcpy(last_dir, real_dir); 

) 

if ( getwd(real_dir) < 0 ) 

( 

user_confirm("getwd", TRUE, errno); 

else 

{ 

scan_dir() ; 
sort_dir 0 ; 

draw_dir(BR_SCROLL_TO_TOP); 

} 

} 

/* check a name is an existing, readable, directory */ 
int 

good_dir(tname) 
char *tname; 

{ 

int good_name = TRUE; 


if ( tname == NULL 

I I *tname == '\0' 

I I stat(tname, sp ) < 0 

)| ((sp->st_mode&S_IFMT) != S_IFDIR) 

II access(tname, R_OK) != 0 ) 

good_name = FALSE; 


return(good_name); 
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Funky_Stuff 

len='wc “C < br_main.c' 

if [ $len != 6867 ] then 

echo error: brjmain.c was $len bytes long, should have been 
fi 

fi # end of overwriting check 

if [ -f br_menu.c ] 

then 

echo shar; will not over-write existing file br_menu.c 
else 

echo shar: extracting' 'br_menu.c', 4191 characters 

cat > br_menu.c «'Funky_Stuff' 

/* 

* browser - br_menu.c - menu handling for browser 

* 

* 

*/ 

♦include <suntool/sunview.h> /* SunView header files */ 

♦include "browser.h" 

char br_menu_sid[] = {♦)br_menu.c 1,5 6/30/87"; 

♦define ACT_VIEW 1 

♦define ACT_EDIT 2 

♦define ACT_DEL 3 

♦define ACT_ROOT 4 

♦define ACT_HOME 5 

♦define ACT_BACK 6 

♦define ACT_PROMPT 7 

♦define ACT_SHELL 9 

♦define ACT_TRACE 8 

♦define ACT_MOVE 10 

extern int spawning; 

Menu action_menu; 

void 

init_menu() 

{ 

/* initialise the canvas menu */ 
action_menu = menu_create( 

MENU_INITIAL_SELECTION_SELECTED, TRUE, 

MENU_ITEM, 

MENU_STRING, "View", 

MENU_GEN_PROC, do_menu, 

MENU_VALUE, ACT__VIEW, 

0 , 

MENU_ITEM, 


6867 
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MENU_STRING, "Edit", 

MENU_GEN_PROC, do_menu, 

MENU_VALUE, ACT_EDIT, 

0 , 

MENU_ITEM, 

MENU_STRING, "Delete", 

MENU_GEN_PROC, do_menu, 

MENU_VALUE, ACT_DEL, 

0 , 

#ifdef MOVING 

MENU_ITEM, 

MENU_STRING, "Move", 

MENU_GEN_PROC, do_menu, 

MENU_VALUE, ACT_MOVE, 

0 , 

#endif 

MENU_ITEM, 

MENU_STR1NG, "Root", 

MENU_GEN_PROC, do_menu, 

MENU_VALUE, ACT_ROOT, 

0 , 

MENU_ITEM, 

MENU_S TRING, "Home", 

MENU_GEN_PROC, do_menu, 

MENU_VALUE, ACT_HOME, 

0 , 

MENU_ITEM, 

MENU_STRING, "Previous", 

MENU_GEN_PROC, do_menu, 

MENU_VALUE, ACT_BACK, 

0 , 

MENU_ITEM, 

MENU_STRING, "Prompt", 

MENU_GEN_PROC, do_menu, 

MENU_VALUE, ACT_PROMPT, 

0 , 

MENU_ITEM, 

MENU_STRING, "Shell", 

MENU_GEN_PROC, do_menu, 

MENU_VALUE, ACT_SHELL, 

0 , 

#ifdef DEBUG 

MENU_ITEM, 

MENU_STRING, (debug)?"Trace Off":"Trace On", 
MENU_GEN_PROC, dO_menu, 

MENU_VALUE, ACT_TRACE, 

0 , 

#endif 

0 ) ; 

} 

Menu_item 
do_menu(mi, op) 

Menu item mi; 
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Menu_generate op; 

/* menu generate proc */ 
int inactive = FALSE; 

int mval = (int) menu_get(mi, MENU_VALUE); 

#ifdef DEBUG 

if ( debug ) 

fprintf(stderr, "do_menu op = %d, item = %d\n", op, mval); 

#endif 

switch( op ) 

( 

case MENU_DISPLAY: 
switch( mval ) 

{ 

case ACT_VIEW: 

if ( dptr == NULL ) 

{ 

if ( ! good_dir(get_selection0) ) 
inactive = TRUE; 

} 

else 

{ 

if ( dptr->dmode & S_IFDIR ) 

( 

if ( ! good_dir(dptr->dname) ) 
inactive = TRUE; 

} 

else 

( 

if ( dptr->dmode == 0 I I 

access(dptr->dname, R_OK) != 0 ) 
inactive = TRUE; 

} 

} 

break; 

case ACT_MOVE: 
case ACT_EDIT: 
case ACT_DEL: 

if ( dptr == NULL 

I 1 dptr->dmode == 0 

j I (dptr->dmode & S_IFDIR) 

II access(dptr->dname,W_OK) != 0 ) 

inactive = TRUE; 

break; 

case ACT_BACK: 

if ( ! good_dir(last_dir) ) 
inactive = TRUE; 
break; 

case ACT_HOME: 

if ( ! good_dir(home_dir) ) 
inactive = TRUE; 
break; 
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#ifdef DEBUG 

case ACT_TRACE: 
menu_set(mi, 

MENU_STRING, debug?"Trace Off":"Trace On", 

0) ; 

break; 

#endif 

} 

menu_set(mi, MENU_INACTIVE, inactive, 0); 
break; 

case MENU_NOTIFY: 

do_action(mval); 
break; 

} 

return(mi); 

} 

void 

do_default_action() 

{ 

/* action required, but menu based checks have not been done */ 



if ( dptr != NULL 

&& dptr->dmode != 0 
&& access(dptr->dname,R_OK) == 0 ) 
do_action( ACT_VIEW ); 

} 

void 

do_action(action) 
int action; 

( 

show action started{); 



switch ( action ) 

{ 

case ACT_VIEW: 

if ( dptr == NULL ) 

{ 

do_dir(sel_dir) ; 

} 

else if ( dptr->dmode & S_IFDIR ) 

{ 

if ( spawning ) 

do_process("browser", dptr->dname); 

else 

do_dir(dptr“>dname); 

} 

else /* assume ordinary file */ 

( 

if ( spawning ) 

do_process("textedit", dptr->dname); 

else 

do_edit(real_dir, dptr“>dname, "view"); 
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break; 

case ACT_EDIT: 

if ( spawning ) 

do_process ("textedit",dptr->dnanie) ; 

else 

do_edit (real_dir, dptr->dnaine, "edit"); 
break; 

case ACT_DEL: 

do_delete (); 
break; 

case ACT_ROOT: 

do_dir <root_dir) ; 
break; 

case ACT_HOME: 

do__dir (home_dir) ; 
break; 

case ACT_BACK: 

do_dir (last_dir) ; 
break; 

case ACT_PROMPT: 

if ( user_confirm("Give new directory name: ", 

BR_GETVALUE, FALSE) ) 

do_dir(user_value()) ; 

break; 

case ACT_SHELL: 

do_proces3( shelltool, 0 ) ; 
break; 

case ACT_MOVE: 
do_move(); 
break; 

#ifdef DEBUG 

case ACT_TRACE: 

debug = !debug; 
break; 

#endif 

} 

show_action_stopped<); 

} 

Funky_Stuff 

len='wo -c < br_menu,c' 

if [ $len != 4191 ] ; then 

echo error: br_menu.c was $len bytes long, should have been 4191 

fi 

fi # end of overwriting check 

if [ -f br_seln.c ] 

then 

echo shar: will not over-write existing file br_seln.c 
else 

echo shar: extracting 'br_seln.c', 3336 characters 

cat > br_seln.c <<'Funky_Stuff' 

/* 

* browser - br_seln.c - selection handling for browser 
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* 

* 

*/ 

finclude "browser.h" 
tinclude <suntool/seln.h> 

static char br_seln_id[] = "@(#)br_seln.cl.4 5/29/87"; 

static Seln_client s_client; 

static char s_buffer[256]; 

void f k.ey_proc () ; 

Seln_result reply_proc(); 

iiiit_seln () 

fifdef DEBUG 

if (debug ) 

fprintf(stderr,"initialise selection client\n"); 

#endif 

s^client = seln_create (fkey_j>roc, replyjtroc, (char *)0); 
if ( s_client == NULL ) 

user_confirm("unexpected error creating selection client", 
TRUE, 
errno); 

1 

exit_seln() 

{ 

#ifdef DEBUG 

if (debug ) 

fprintf(stderr,"destroy selection client\n"); 

#endif 

seln_destroy(s_client); 

) 

char * 

get_selection() 

Seln_holder holder; 

Seln_request *sel_buf; 

holder = seln_inquire(SELN_PRIMARY) ; 

sel_buf = seln_ask(Sholder, 

SELN_REQ_C0NTENTS_ASCII, 

0 , 

0 ) ; 

strncpy(sel_dir, sel_buf->data + sizeof(Seln_attribute), 256); 





640 Software Technical Bulletin issue 1987-8 


#ifdef DEBUG 

if (debug ) 

fprintf(stderr,"get selection returns %s\n",sel_dir); 

#endif 

return(sel_dir); 

} 

void 

set_selection(value) 
char *value; 

{ 

#ifdef DEBUG 

if (debug ) 

fprintf(stderr,"set selection to %s\n",value); 

#endif 

if ( seln_acquire(s_client, SELN_PRIMARY) != SELN_PRIMARY ) 
user_confirm("unexpected error acquiring selection", 
TRUE, 
errno); 

if ( strlen(value) == 1 && *value ' ) 

strcpy(s_buffer, real_dir); 

else 

strcpy(s_buffer, value); 

} 

void 

unset_selection() 

( 

#ifdef DEBUG 

if (debug ) 

fprintf(stderr,"unset selection\n"); 

#endif 

*s_buffer = '\0'/ 

} 

void 

fkey__proc (cdata, args) 
char *cdata; 

Seln_function_buffer *args; 

{ 

Seln_holder *holder; 

#ifdef DEBUG 
if (debug) 

fprintf(stderr,"fkey_proc: activated\n"); 

#endif 

switch ( seln_figure_response(args, Sholder) ) 

{ 

case SELN_IGNORE: 
break; 

case SELN_REQUEST: 
break; 
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case SELN_SHELVE: 
break; 

case SELN_FIND: 
break; 

case SELN_DELETE: 
break; 

} 

} 

Seln_result 

reply_proc(item, context, length) 

Seln_attribute item; 

Seln_replier_data *context; 
int length; 

{ 

int size, needed; 
char *destp = NULL; 

switch ( context->rank ) 

{ 

case SELN_PRIMARY: 
break; 

case SELN_SECONDARY: 
break; 

case SELN_SHELF: 
break; 

} 

switch { item ) 

{ 

case SELN_REQ_CONTENTS_ASCII: 

#ifdef DEBUG 

if (debug ) 

fprintf (stderr,''reply_proc : give ascii selection\n") ; 

tendif 

context->context = s_buffer; 

size = strlen(context->context); 

destp = (char *)context->response_pointer; 

needed = size + 4; 

if ( size % 4 != 0 ) 

needed += 4 - size % 4; 

strcpy(destp, context->context); 
destp += size; 

while ( (int)destp % 4 != 0 ) 

*destp++ = '\0'; 

context->response_pointer = (char **)destp; 
*context->response_pointer++ = 0; 
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return( SELN_SUCCESS ) ; 

case SELN_REQ_YIELD: 

#ifdef DEBUG 

if (debug ) 

fprintf (stderr,''reply_proc: yield selection\n”) ; 

#endif 

if ( dptr != NULL ) 

{ 

highlight(dptr); 
dptr = NULL; 

} 

unset_selection() ; 

*context->response_pointer+-l- = (char *) SELN_SUCCESS; 

return( SELN_SUCCESS ) ; 

case SELN_REQ_BYTESIZE: 

#ifdef DEBUG 
if (debug ) 

fprintf(stderr,"reply_proc: give selection sizeXn"); 

#endif 

*context->response_pointer-(”l- = (char *) strlen (s_buf fer) ; 
return( SELN_SUCCESS ) ; 
case SELN_REQ_END_REQUEST: 

return( SELN_SUCCESS ) ; 
default: 

return( SELN_UNRECOGNIZED ); 

} 

) 

Funky_Stuff 

len='wc -c < br_seln.c’ 

if [ $len != 3336 ] ; then 

echo error; br__seln,c was $len bytes long, should have been 3336 
fi 

fi # end of overwriting check 

if [ -f br_text.C } 

then 

echo shar: will not over-write existing file br_text.c 
else 

echo shar: extracting 'br_text.c', 2626 characters 

cat > br_text.c «'Funky_Stuff' 

/* 

* br text.c - text routines for browser 
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* Alistair Skinner - March 1986 Sun Microsystems Europe Inc. 

* 

*/ 

#include "browser.h" 


char br_text_sid[] = "6(#)br_text.c 1.5 6/30/87"; 
void 

init_text() 

{ 

scratch = window_create(view_frame, TEXTSW, 

TEXTSW_DISABLE_CD, TRUE, 

TEXTSW_DISABLE_LOAD, TRUE, 

WIN_ROWS, 1, 

WIN_X, 0, 

0 ) ; 

viewsw = window_create(view_frame, TEXTSW, 

WIN_BELOW, scratch, 

WIN_X, 0, 

TEXTSW_BROWSING, TRUE, 

TEXTSW_DISABLE_CD, TRUE, 

TEXTSW__DISABLE_LOAD, TRUE, 

0 ) ; 

} 

int 

ok_to_reset () 

{ 

/* check there are no edits outstanding */ 
int modified = TRUE; 

if ( ! (int)window_get(viewsw, TEXTSW_MODIFIED) 

i1 user_confirm("** This action will destroy unsaved edits 
FALSE,FALSE) ) 

( 

textsw_reset(viewsw, 500, 500); 
modified = FALSE; 

} 

return ( .'modified ); 

} 

void 

check_done(donef) 

Frame donef; 

{ 

/* called by the notifier when user selects "done" */ 

if { ok_to_reset 0 ) 

( 

Q window_set(view_frame, WIN_SHOW, FALSE, 0); 
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Notify_value 

check_quitiquitf, dstatus) 

Frame quitf; 

Destroy_status dstatus; 

/* called by the notifier when user selects "quit" */ 

if ( dstatus == DESTROY_CHECKING && !ok_to_reset() ) 

{ 

notify_veto_destroy(base_frame); 
return(NOTIFY_DONE); 

} 

textsw_reset(scratch, 500,500) ; 

return( notify_next_destroy_func(quitf, dstatus) ); 

} 

void 

do_e dit(t_directory, t_file, t_action) 
char *t__directory; 
char *t_file; 
char *t_action; 

/* edit or view the currently active file */ 

char full_name[256]; 
int len =0; 

fifdef DEBUG 

if ( debug ) 

fprintf(stderr, "%sing %s\n", t_action, t_file); 

#endif 

if ( ok_to_reset () ) 

{ 

/* use full path name in case we change directory later */ 

strcpy(full_name, t_directory); 
len = strlen(full_name); 
full_name[len++] = '; 
strcpy(&full_name[len],t_file); 

window_set(viewsw, 

TEXTSW_FILE, full_name, 

TEXTSW_BROWSING, (*t_action=='v'), 

0 ) ; 

sprintf(name_stripe, "%s %s (%s) - %s (%d bytes)”, 
br__name, 
br_version, 
t_action, 
t_file, 

window_get(viewsw,TEXTSW_LENGTH) 

) ; 
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} 


window_set(view_frame, 

FRAME_LABEL, name_stripe, 
WIN_SHOW, TRUE, 

0 ) ; 


} 

void 

do_process(pname,parg) 
char *pname; 
char *parg; 

{ 

/* spawn a new, detached process */ 


switch ( vforkO ) 




case 0: 

switch ( vforkO ) 

{ 

case 0: 

execlp(pname, pname, parg, 0); 

perror("browser: could not exec process"); 

_exit(-1); 
break; 
case -1: 

perror("browser: could not dettach process"); 

_exit(-1); 
break; 
default: 

_exit(0); 

} 

break; 
case "1: 

user_confirm("cannot fork process", TRUE, TRUE); 
break; 
default: 

wait(0); 
break; 

} 

} 

Funky_Stuff 

len='wc -c < br_text.c' 

if [ $len != 2626 ] ; then 

echo error: br_text.c was $len bytes long, should have been 
fi 

fi # end of overwriting check 

if t ~f confirm.o ] 

then 

echo shar: will not over-write existing file confirm.c 
else 

echo shar: extracting 'confirm.c', 4369 characters 

cat > confirm, c «'Funky_Stuf f' 

/* 

* confirm.c - user confirmation routines 
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* 

* 

* isanerr now contains errno - 15 Apr 87 AES 

* 

* Based on example code in the SunView Programmers Guide. 

* 

* These routines provide a confirmer pop-up which the 

* user must respond to. The interface is: 

* 

* int 

* user_confirm(prompt, isacont, isanerr) 

* char *prompt; 

* int isacont; 

* int isanerr; 

* 

* It returns TRUE if the user said yes/continue 

* or FALSE if the user said no 

* 

* Use in one of three ways, in the first two cases, the 

* only choice is to continue. 

* 

* (1) For informational messages after a system error; 

* 

* user_confirm("my message", TRUE, errno); 

•k 

* in this case the message appears with the system 

* error message appended in the style of perror(3) 

* 

* (2) For informational messages when there is no system error: 

■k 

* user_confiimtiC'my message", TRUE, FALSE) ; 

* 

* (3) For situations where the user must confirm an action: 

* 

* user_confirm("my message", FALSE, FALSE); 

* 

* The remaining case, where there has been a system error 

* and the user must confirm an action, will work but the 

* format of the output will probably not be suitable, and 

* there will probably be too much information for the user. 

* 

*/ 


#include <suntool/sunview.h> 
♦include <suntool/pane1.h> 

♦define MAX_MSG 80 
♦define BR_CONTINUE TRUE 
♦define BR GETVALUE 2 


extern int 
extern int 
extern int 


errno; 
sys_nerr; 
*sys_errlist[]; 
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Static short ok_image[] = { 

#include "brok.icon” 

}; 

mpr_static(ok_button, 64, 64, 1, ok_image); 

static short ca_image[] = { 
finclucLe "brca. icon" 

}; 

mpr_static(ca_button, 64, 64, 1, ca_image); 

static void 
yes_no(item, event) 

Panel_item item; 

Event *event; 

{ 

window_return(panel_get(item, PANEL_CLIENT_DATA)); 

} 

Frame conf; 

Panel panel; 

Panel_item file_spec; 
char uvalue_store(80]; 

static Frame 

init_conf(prompt,isacont,isanerr) 
char *prompt; 
int isacont; 
int isanerr; 

( 

char msgbuf[MAX_MSG]; 
char *cp; 

Panel_item msg; 

int left, top, width, height; 

Rect *r; 

struct pixrect *pr; 

conf = window_create(0, FRAME, 

FRAME_SHOW_LABEL, FALSE, 

0 ) ; 

panel = window_create(conf, PANEL, 0); 
pr = &ok_button; 
cp = msgbuf; 

if ( prompt == NULL I I *prompt == '\0' ) 
strcpy(cp, "(null message)"); 

else 

strncpy(cp, prompt, MAX_MSG); 
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cp = msgbuf + strlen(msgbuf); 


if ( isanerr ) 

{ 

if { errno < sys_nerr ) 

sprintf(cp,” : %s’', sys_errlist [isanerr]) ; 

else 

sprintf (cp, " : Error Number %d'', isanerr) ; 


if ( isacont == BR_GETVALUE ) 

file_spec = panel_create_item(panel, PANEL_TEXT, 
PANEL_ITEM_Y, ATTR_ROW(1), 
PANEL_LABEL_STRING, msgbuf, 
PANEL_VALUE_DISPLAY_LENGTH, 20, 

PANEL_VALUE, 

0) ; 

} 

else 


msg = panel_create_item(panel, PANEL_MESSAGE, 
PANEL_LABEL_STRING, msgbuf, 

PANEL_ITEM_Y, ATTR_ROW(1) , 

0 ) ; 


panel_create_item(panel, PANEL_BUTTON, 

PANEL_1TEM_X, 25, 

PANEL_ITEM_Y, 50, 

PANEL_LABEL_IMAGE, pr, 

PANEL_CLIENT_DATA, 1, 

PANEL_NOTIFY_PROC, yes_no, 

0 ) ; 

panel_create_item(panel, PANEL__MESSAGE, 

PANEL_ITEM_X, 95, 

PANEL_ITEM_Y, 75, 

PANEL_LABEL_STRING, "Continue with current action”, 

0 ) ; 

if ( isacont != BR_CONTINUE ) 

{ 

panel_create_item (panel, PANEL_BUTTON, 

PANEL_ITEM_X, 2 5, 

PANEL_ITEM_Y, 120, 

PANEL_LABEL_IMAGE, &ca_button, 

PANEL_CLIENT_DATA, 0, 

PANEL_NOTIFY_PROC, yes_no, 

0 ) ; 

panel_create_item(panel, PANEL_MESSAGE, 



o 
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PANEL_ITEM_X, 95, 

PANEL_ITEM_Y, 145, 

PANEL_LABEL_STRING, "Abort current action", 
0 ) ; 


win<iow_fit<panel) ; 
window_£it(conf); 

r = <Rect *) window_get(conf, WIN_SCREEN_RECT); 
width = (int) window_get(conf, WIN_WIDTH); 
height = (int) window_get(conf, WIN_HEIGHT); 
left = (r->r_width - width)/2; 
top = (r->r_height - height)/2/ 
if ( left < 0 ) 
left = 0; 
if ( top < 0 ) 
top = 0; 

window_set(conf, WIN_X, left, WIN_Y, top, 0); 



return(conf); 

} 

int 

user_confirm(prompt,isacont,isanerr) 
char *prompt; 
int isacont; 
int isanerr; 

( 


Frame conf; 
int ans; 


conf = init_conf(prompt,isacont, isanerr); 

ans = (int) window_loop(conf); 

if ( isacont == BR_GETVALUE ) 

strcpy(uvalue_store, (char *)panel_get_value(file_spec)); 

else 

*uvalue_store = '\0'; 

window_set(conf, FRAME_NO_CONFIRM, TRUE, 0); 
window_destroy(conf); 


Q 


return(ans); 

} 

char * 
user_value() 

{ 

if ( *uvalue_store == NULL ) 
return( NULL ); 

else 

return( uvalue store ); 
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) 

Funk.y_Stuff 

len='wc -c < confirm.c' 

if [ $len != 4369 ] ; then 

echo error: confirm.c was $len bytes long, should have been 
f i 

fi # end of overwriting check 

if [ -f bbad.icon ] 

then 

echo shar: will not over-write existing file bbad.icon 
else 

echo shar: extracting 'bbad.icon', 1933 characters 

cat > bbad.icon «'Funky_Stuff' 

/* Format_version=l, Width=64, Height=64, Depth=l, Valid_bits_pe 
*/ 

0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0003,OxFFFF,OxFFFC,0x0000,0x0002,0x0000,0x0004,0x0000, 
0x0002,0x0000,0x0004,0x0000,0x0002,0x0000,0x0004,0x0000, 
0x0002,0x0000,0x0004,0x0000,0x0002,0x0000,0x0004,0x0000, 
Ox0002,OxOOOO,Ox0004,OxOOOO,Ox0002,Ox001F,0x0004,0x0000, 
0xO002,0x0O3F,OxE004,0x0000,0x0002,0x0060,0x3004,0x0000, 
0x0002,0x0060,0x3004,0x0000,0x0002,0x0060,0x3004,0x0000, 
0x0002,0x0000,0x3004,0x0000,0x0002,0x0000,0x3004,0x0000, 
0x0002,0x0001,OxE004,0x0000,0x0002,0x0003,0x0004,0x0000, 
0x0002,0x0006,0x0004,0x0000,0x0002,0x0006,0x0004,0x0000, 
0x0002,0x0006,0x0004,0x0000,0x0002,0x0006,0x0004,0x0000, 
0x0002,0x0006,0x0004,0x0000,0x0002,0x0006,0x0004,0x0000, 
0x0002,0x0000,0x0004,0x0000,0x0002,0x0000,0x0004,0x0000, 
0x0002,0x0006,0x0004,0x0000,0x0002,0x0006,0x0004,0x0000, 
0x0002,0x0000,0x0004,0x0000,0x0002,0x0000,0x0004,0x0000, 
0x0002,0x0000,0x0004,0x0000,0x0003,OxFFFF,OxFFFC,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000, 0x0000,0x0000, 0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000 
Funky_Stuff 

len='wc -c < bbad.icon' 

if [ $len != 1933 ] ; then 

echo error: bbad.icon was $len bytes long, should have been 
fi 

fi # end of overwriting check 
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if [ -f bblk.icon ] 
then 

echo shar: will not over-write existing file bblk.icon 
else 

echo shar: extracting 'bblk.icon', 1933 characters 

cat > bblk.icon «'Funky_Stuff' 

/* Format_version=l, Width=64, Height=64, Depth=l, Valid_bits_per_item=16 
*/ 

0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 

0x0000,0x0000, 0x0000,0x0000,0x0000, 0x0000,0x0000, 0x0000, 

0x0000,0x007F,0xE000,0x0000,0x0000,0x0180,0x1800,0x0000, 
0x0000,0x0600,0x0600,0x0000,0x0000,0x1800,0x0180,0x0000, 

0x0000,0x2000,0x0040,0x0000,0x0000,0x3800,0x0ICO,0x0000, 
0x0000,0x2600,0x0640,0x0000,0x0000,0x2180,0x1840,0x0000, 

0x0000,0x207F,OxE040,0x0000,0x0000,0x2000,0x0040,0x0000, 
0x0000,0x2000,0x0040,0x0000,0x0000,0x2000,0x0040,0x0000, 
0x0000,0x2000,0x0040,0x0000,0x0000,0x2000,0x0040,0x0000, 

0x0000,0x2000,0x0040,0x0000,0x0000,0x2000,0x0040,0x0000, 

0x0000,0x2000,0x0040,0x0000,0x0000,0x2000,0x0040,0x0000, 

0x0000,0x2000,0x0040,0x0000,0x0000,0x2000,0x0040,0x0000, 

0x0000,0x2000,0x0040,0x0000,0x0000,0x2000,0x0040,0x0000, 

0x0000,0x2000,0x0040,0x0000,0x0000,0x2000,0x0040,0x0000, 

0x0000,0x1800,0x0180,0x0000,0x0000,0x0600,0x0600,0x0000, 

0x0000,0x0180,0x1800,0x0000,0x0000,0x007F,OxEOOO,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 

0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000, 0x0000,0x0000, 0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 

0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 

0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 

0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 

0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 

0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 

0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 

0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 

0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 

0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 

0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000 
Funky_Stuff 

len='wc -c < bblk.icon' 

if [ $len != 1933 ] ; then 

echo error: bblk.icon was $len bytes long, should have been 1933 
fi 

fi # end of overwriting check 

if [ -f bcha.icon ] 

then 

echo shar: will not over-write existing file bcha.icon 
else 

echo shar: extracting 'bcha.icon', 1933 characters 

cat > bcha.icon «'Funky_Stuff' 

/* Format_version=l, Width=64, Height=64, Depth=l, Valid_bits_per_item=16 
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*/ 

0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000, OxOOOO,OxOOOO,OxOOOO,OxOOOO,OxlFFF,OxFFF8,OxOOOO, 
0x0000, 0x1000,0x0008,0x0000,0x0000,OxllFF,0xFF88,0x0000, 
0x0000,0x1200,0x0048,0x0000,0x0000,0x1400,0x0028,0x0000, 
0x0000, 0x1400,0x0028,0x0000,0x0000,0x1400,0x0028,0x0000, 
0x0000,0x1400,0x0028,0x0000,0x0000,0x1400,0x0028,0x0000, 
0x0000,0x1400,0x0028,0x0000,0x0000,0x1400,0x0028,0x0000, 
0x0000,0x1400,0x0028,0x0000,0x0000,0x1400,0x0028,0x0000, 
0x0000,0x1400,0x0028,0x0000,0x0000,0x1400,0x0028,0x0000, 
0x0000,0x1400,0x0028,0x0000,0x0000,0x1400,0x0028,0x0000, 
0x0000,0x1400,0x0028, 0x0000,0x0000,0x1200,0x0048,0x0000, 

0x0000,0x1IFF,0xFF88,0x0000,0x0000,0x1000,0x0008,0x0000, 
0x0000,OxlFFF,OxFFFS,0x0000,0x0000,0x0004,0x2000,0x0000, 
0x0000,0x0004,0x2000,0x0000,0x0000,OxFFFF,OxFFFF,0x0000, 
0x0000,0x8000,0x0001,0x0000,0x0000,0x8000,0x0001,0x0000, 
0x0000, OxFFFF,OxFFFF, 0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000, 0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000, 0x0000,0x0000,0x0000, 0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000 
Funky_Stuff 

len='wc -c < bcha.icon' 

if [ $len != 1933 ] ; then 

echo error: bcha.icon was $len bytes long, should have been 
f i 

fi # end of overwriting check 

if [ -f bdir.icon ] 

then 

echo shar: will not over-write existing file bdir.icon 
else 

echo shar: extracting 'bdir.icon', 1933 characters 
cat > bdir.icon «'Funky_Stuff' 

/* Format_version=l, Width=64, Height=64, Depth=l, Valid_bits_jpe 
*/ 

0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000, OxOlFE, 0x0000, 0x0000,0x0000,OxFEOl,OxFFFF,0x0000, 
0x0000,0x8400,0x8001,0x0000,0x0003, OxFCOO,OxFFFD, 0x0000, 
0x0002,0x0000, 0x0005, 0x0000,OxOOOF,OxFFFF,OxFFFS,0x0000, 
0x0008,0x0000,0x0015,0x0000,0x0008,0x0000,0x0015,0x0000, 
0x0008,0x0000, 0x0015,0x0000,0x0008,0x0000,0x0015, 0x0000, 
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0x0008,0x0000,0x0015,0x0000,0x0008,0x0000,0x0015,0x0000, 
0x0008,0x0000,0x0015,0x0000,0x0008,0x0000,0x0015,0x0000, 
0x0008, 0x0000,0x0015,0x0000,0x0008,0x0000,0x0015, 0x0000, 
0x0008,0x0000,0x0015,0x0000,0x0008,0x0000,0x0015, 0x0000, 
0x0008,0x0000,0x0015,0x0000,0x0008,0x0000,0x0015,0x0000, 
0x0008,0x0000,0x0015,0x0000,0x0008,0x0000,0x0015,0x0000, 
0x0008,0x0000, 0x0015,0x0000,0x0008, 0x0000,0x0015,0x0000, 
0x0008,0x0000,0x0015, 0x0000,0x0008,0x0000, 0x0017,0x0000, 
0x0008,0x0000,0x0014,0x0000,0x0008,0x0000,0x001C,0x0000, 
0x0008,0x0000,0x0010,0x0000,0x00OF,OxFFFF,OxFFFO, 0x0000, 

0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000, 0x0000, 0x0000,0x0000,0x0000,0x0000,0x0000, 0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000 
Funky_Stuff 

len='wc -c < bdir.icon' 

if [ $len != 1933 ] ; then 

echo error; bdir.icon was $len bytes long, should have been 
fi 

fi # end of overwriting check 

if t -f bexe.icon } 

then 

echo shar: will not over-write existing file bexe.icon 
else 

echo shar: extracting 'bexe.icon', 1933 characters 

cat > bexe.icon «'Funky_Stuff' 

/* Format_version=l, Width=64, Height=64, Depth=l, Valid_bits_pe 
*/ 

0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
OxOOO3,OxFFFF,0xF000,0x0000,0x0002,0x0000,0x1800,0x0000, 
0xOOO2,Ox0O0O,0xlCO0,OxOOOO,OxOOO2,OxOOOO,OxlEOO,0x0000, 

0x0002,0x0000,OxlFO0,0x0000,0x0002,0x0000,0xlF80,0x0000, 
0x0002,0x0000,OxlFCO,0x0000,0x0002,0x0000,OxlFEO,0x0000, 
0x0002,0x0000,OxlFFO,0x0000,0x0002,0x0000,OxlFFS,0x0000, 
0x0002,0x0000,OxlFFC,0x0000,0x0002,0x0000,0x0004,0x0000, 
0x0002,0x0000,0x0004,0x0000,0x0002,0x0000,0x0004,0x0000, 
0x0002,0x0000,0x0004,0x0000,0x0002,0x0000,0x0004,0x0000, 
0x0002,0x0000,0x0004,0x0000,0x0002,0x0000,0x0004,0x0000, 
0x0002,0x0000,0x0004,0x0000,0x0002,0x0000,0x0004,0x0000, 
0x0002,0x0000,0x0004,0x0000,0x0002,0x0000,0x0004,0x0000, 
0x0002,0x0000,0x0004,0x0000,0x0002,0x0000,0x0004,0x0000, 
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0x0002,0x0000,0x0004,0x0000,0x0002,0x0000,0x0004,0x0000, 
0x0002,0x0000,0x0004,0x0000,0x0002,0x0000,0x0004,0x0000, 
0x0002,0x0000,0x0004,0x0000,0x0003,OxFFFF,OxFFFC,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000, 0x0000, 0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000, 0x0000, 0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000, 0x0000, 0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000, 0x0000, 0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000, 0x0000, 0x0000,0x0000, 0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000, 0x0000,0x0000,0x0000, 0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000, 0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000 
Funky_Stuff 

len='wc -c < bexe.icon' 

if [ $len != 1933 ] ; then 

echo error: bexe.icon was $len bytes long, should have been 
fi 

fi # end of overwriting check 

if [ -f bfil.icon ] 

then 

echo shar: will not over-write existing file bfil.icon 
else 

echo shar: extracting 'bfil.icon', 1933 characters 
cat > bfil.icon «'Funky_Stuff' 

/* Format_version=l, Width=64, Height=64, Depth=l, Valid_bits_pe 
*/ 

0x0000, 0x0000, 0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0003,OxFFFF,OxFOOO,0x0000,0x0002,0x0000,0x1800,0x0000, 
0x0002, 0x0000, 0x1400,0x0000,0x0002,0x0000,0x1200, 0x0000, 
0x0002,0x0000,0x1100,0x0000,0x0002,0x0000,0x1080,0x0000, 
0x0002,0x0000,0x1040,0x0000,0x0002,0x0000,0x1020,0x0000, 
0x0002, 0x0000,0x1010,0x0000,0x0002,0x0000,0x1008,0x0000, 
Ox0002,OxOOOO,OxlFFC,0x0000,0x0002,0x0000,0x0004,0x0000, 
0x0002,0x0000,0x0004,0x0000,0x0002,0x0000,0x0004,0x0000, 
0x0002,0x0000,0x0004, 0x0000,0x0002, 0x0000,0x0004, 0x0000, 
0x0002,0x0000, 0x0004, 0x0000,0x0002,0x0000,0x0004,0x0000, 
0x0002,0x0000, 0x0004, 0x0000,0x0002,0x0000,0x0004, 0x0000, 
0x0002,0x0000, 0x0004, 0x0000,0x0002, 0x0000,0x0004,0x0000, 
0x0002, 0x0000, 0x0004, 0x0000^ 0x0002,0x0000,0x0004,0x0000, 
0x0002,0x0000,0x0004,0x0000,0x0002,0x0000,0x0004,0x0000, 
0x0002,0x0000,0x0004,0x0000,0x0002,0x0000,0x0004,0x0000, 
0x0002, 0x0000, 0x0004,0x0000,0x0003, OxFFFF,OxFFFC, 0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000, 0x0000,0x0000, 0x0000, 
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0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000 
Funky_Stuff 

len='wc -c < bfil.icon' 

if [ $len != 1933 ] ; then 

echo error: bfil.icon was $len bytes long, should have been 
f i 

fi # end of overwriting check 

if [ -f brca.icon ] 

then 

echo shar: will not over-write existing file brca.icon 
else 

echo shar: extracting 'brca.icon', 1933 characters 

cat > brca.icon «'Funky_Stuff' 

/* Format_version=l, width=64, Height=64, Depth=l, Valid_bits_j3e 
*/ 

0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
OxOOPF,OxFFFF,OxFFFF,OxFFOO,OxOlFF,OxFFFF,OxFFFF,OxFF80, 
0 x 03FF,OxFFFF,OxFFFF,OxFFCO,0xO7CO,0x0000,0x0000,Ox03EO, 
0x0780,0x0000,0x0000,0x0lEO,0x0700,0x0000,0x0000,0x0OEO, 
0x0700,0x0000,0x0000,0x0OEO,0x0700,0x0000,0x0000,0x0OEO, 
0x0700,0x0000,0x0000,0x0OEO,0x0700,0x0000,0x0000,OxOOEO, 
0x0700,0x0000, 0x0000,OxOOEO,0x0700, 0x0000,0x0000,OxOOEO, 
0x0700,0x0000,0x0000,OxOOEO,0x0700,0x0000,0x0000,OxOOEO, 
0x0700,0x0000,0x0000,OxOOEO,0x0700,0x0000,0x0000,OxOOEO, 
0x0700,0x0000,0x0000,OxOOEO,0x0700,0x0000,0x0000,OxOOEO, 
0x0700,0x0000,0x0000,OxOOEO,0x0707,0x0422,0x38F9,OxOOEO, 
0x0708,0x8432, 0x4481,OxOOEO,0x0708,0x8A32,0x4481,OxOOEO, 
0x0708,OxOA2A,0x4081,OxOOEO,0x0708,0x0A2A,0x40Fl,OxOOEO, 
0x0708,0x1126,0x4081,OxOOEO,0x0708,0x9F26,0x4481,OxOOEO, 
0x0708,0x9122,0x4481,OxOOEO,0x0707,0x1122,0x38F9,OxFOEO, 
0x0700,0x0000,0x0000,OxOOEO,0x0700,0x0000,0x0000,OxOOEO, 
0x0700,0x0000,0x0000,OxOOEO,0x0700,0x0000,0x0000,OxOOEO, 

0x07 00,0x0000,0x0000,OxOOEO,0x07 00,0x0000,0x0000, OxOOEO, 
0x0700,0x0000,0x0000,OxOOEO,0x0700,0x0000,0x0000,OxOOEO, 
0x0700,0x0000, 0x0000,OxOOEO,0x0700, 0x0000,0x0000, OxOOEO, 
0x0700,0x0000,0x0000,OxOOEO,0x0700,0x0000,0x0000,OxOOEO, 
0x0700,0x0000, 0x0000,OxOOEO,0x0700, 0x0000,0x0000, OxOOEO, 
0x0700,0x0000,0x0000,OxOOEO,0x0780,0x0000,0x0000,0x0lEO, 
0x07C0,0x0000, 0x0000,0x03E0,0xO3FF,OxFFFF,OxFFFF, OxFFCO, 
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OxOlFF,OxFFFF,OxFFFF,OxFFSO,OxOOFF,OxFFFF,OxFFFF,OxFFOO, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 

0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 

0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000 
Funky_Stuff 

len='wc -c < brca.icon' 

if [ $len != 1933 ] ; then 

echo error: brca.icon was $len bytes long, should have been 1933 
fi 

fi # end of overwriting check 

if [ -f brok.icon ] 

then 

echo shar: will not over-write existing file brok.icon 
else 

echo shar: extracting 'brok.icon', 1933 characters 

cat > brok.icon «'Funky_Stuff' 

/* Format_version=l, Width=64, Height=64, Depth=l, Valid bits per item=16 
*/ 

0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 

0x0000,0x0000,0x0000,0x0000,0x0000,OxOOOO,0x0000,0x0000, 

0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 

0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 

OxOOFF, OxFFFF,OxFFFF,OxFFOO,OxOlFF,OxFFFF,OxFFFF,OxFFSO, 

0x03FF,OxFFFF,OxFFFF,OxFFCO,0xO7C0,0x0000,0x0000, Ox03E0, 
0x0780,0x0000, 0x0000,OxOlEO, 0x0700,0x0000,0x0000, OxOOEO, 
0x0700,0x0000, 0x0000,OxOOEO, 0x0700, 0x0000, 0x0000, OxOOEO, 
0x0700,0x0000, 0x0000,OxOOEO, 0x0700,OxOOOO,0x0000, OxOOEO, 
0x0700,0x0000, 0x0000,OxOOEO,0x0700,0x0000,0x0000,OxOOEO, 
0x0700,0x0000,0x0000,OxOOEO,0x0700,0x0000,0x0000,OxOOEO, 
0x0700,0x0000,0x0000,OxOOEO,0x0700,0x0000,0x0000,OxOOEO, 
0x0700,0x0000,0x0000,OxOOEO,0x0700,0x0000,0x0000,OxOOEO, 
0x0700,0x0000,0x0000,OxOOEO,0x0700,0x0OIC,0x4400,OxOOEO, 
0x0700,0x0022,0x4800,OxOOEO,0x0700,0x0022,0x5000,OxOOEO, 

0x0700,0x0022,0x6000,OxOOEO,0x0700,0x0022,0x5000,OxOOEO, 

0x0700,0x0022,0x4800,OxOOEO,0x0700,0x0022,0x4800,OxOOEO, 

0x0700,0x0022,0x4400,OxOOEO,0x0700,OxOOlC,0x4400,OxOOEO, 

0x0700,0x0000,0x0000,OxOOEO,0x0700,0x0000,0x0000,OxOOEO, 

0x0700,0x0000,0x0000,OxOOEO,0x0700,0x0000,0x0000,OxOOEO, 

0x0700,0x0000,0x0000,OxOOEO,0x0700,0x0000,0x0000,OxOOEO, 

0x0700,0x0000,0x0000,OxOOEO,0x0700,0x0000,0x0000,OxOOEO, 

0x0700,0x0000,0x0000,OxOOEO,0x0700,0x0000,0x0000,OxOOEO, 
0x0700,0x0000,0x0000,OxOOEO,0x0700,0x0000,0x0000,OxOOEO, 

0x0700,0x0000,0x0000,OxOOEO,0x0700,0x0000,0x0000,OxOOEO, 

0x0700,0x0000,0x0000,OxOOEO,0x0780,0x0000,0x0000,OxOlEO, 

0x07C0,0x0000,0x0000,0x03EO,0x03FF,OxFFFF,OxFFFF,OxFFCO, 

OxOlFF,OxFFFF,OxFFFF,OxFFSO,OxOOFF,OxFFFF,OxFFFF,OxFFOO, 

0x0000, 0x0000, 0x0000, 0x0000,0x0000, 0x0000, 0x0000, 0x0000, 

0x0000, 0x0000, 0x0000,0x0000,0x0000,0x0000, 0x0000, 0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 

0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000 
Funky_Stuff 

len='wc -c < brok.icon' 
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if [ $len != 1933 ] ; then 

echo error: brok.icon was $len bytes long, should have been 
fi 

fi # end of overwriting check 

if [ -f brow.icon ] 

then 

echo shar: will not over-write existing file brow.icon 
else 

echo shar: extracting 'brow.icon', 1933 characters 

cat > brow.icon «'Funky_Stuff' 

/* Format_version=l, Width=64, Height=64, Depth=l, Valid bits per 
*/ 

OxFFFF,OxFFFF,OxFFFF,OxFFFF,OxFFFF,OxFFFF,OxFFFF, OxFFFF, 
OxCOOO,0x0000,0x0000,0x0003,OxCOOO,0x0000,0x0000,0x0003, 
OxCOOO,0x0000,0x0000,0x0003,0xc000,0x7C00,0x0000,0x0003, 
0xC03F,0x83FC,0x3FFF,0xC003,0xC020,0x0004,0x2000,0x6003, 
OxCOFF,0xFFF4,0x2000,0x5003,0x0080,0x0014,0x2000,0x4803, 
0x0080,0x0014,0x2000,0x4403,0x0080,0x0014,0x2000,0x4203, 
0x0080,0x0014,0x2000,0x7F03,0x0080,0x0014,0x2000,0x0103, 
0x0080,0x0014,0x2000,0x0103,0x0080,0x0014,0x2000,0x0103, 
0x0080,0x0014,0x2000,0x0103,0x0080,0x0014,0x2000,0x0103, 
0x0080,0x0014,0x2000,0x0103,0x0080,0x0014,0x2000,0x0103, 
0x0080,0x0010,0x2000,0x0103,0x0080,0x0010,0x2000,0x0103, 
OxOOFF,OxFFFO,0x3FFF,0xFF03,0x0000,0x0000,0x0000,0x0003, 
OxCOOO,0x0000,0x0000,0x0003,OxCOFF,OxFFOO,0x3FFF,0x0003, 
0x0080,0x0180,0x2000,0x6003,0x0080,0x0140,0x2000,0x7003, 
0x0080,0x0120,0x2000,0x7803,0x0080,0x0110,0x2000,0x7003, 
0x0080,0x0108,0x2000,0x7E03,0x0080,OxOlFC,0x2000,0x7F03, 
0x0080,0x0004,0x2000,0x0103,0x0080,0x0004,0x2000,0x0103, 
0x0080,0x0004,0x2000,0x0103,0x0080,0x0004,0x2000,0x0103, 
0x0080,0x0004,0x2000,0x0103,0x0080,0x0004,0x2000,0x0103, 
0x0080,0x0004,0x2000,0x0103,0x0080,0x0004,0x2000,0x0103, 
0x0080,0x0004,0x2000,0x0103,OxCOFF,OxFFFO,OxSFFF,0xFF03, 
0x0000,0x0000,0x0000,0x0003,0x0000,0x0000,0x0000,0x0003, 
0x0000,0x0000, 0x0000,0x0003,0x0000, 0x0000, 0x0000,0x0003, 
OxFFFF,OxFFFF,OxFFFF,OxFFFF,OxFFFF,OxFFFF,OxFFFF,OxFFFF, 

0 x 0000 , 0 x 0000 , 0 x 0000 , 0 x 0000 , 0 x 0000 , 0 x 0000 , 0 x 0000 , 0 x 0000 , 
0x0000,0x0000, 0 x 0000 , 0 x 0000 , 0 x 0000 , 0 x 0000 , 0 x 0000 , 0 x 0000 , 
0 x 0000 , 0 x 0000 , 0 x 0000 , 0 x 0000 , 0 x 0000 , 0 x 0000 , 0 x 0000 , 0 x 0000 , 
0x0000, 0x0000,0x0000,0x0000, 0 x 0000 , 0 x 0000 , 0 x 0000 , 0 x 0000 , 

0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000, 
0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000 
Funky_Stuff 

len='wc -c < brow.icon' 

if [ $len != 1933 ] ; then 

echo error: brow.icon was $len bytes long, should have been 
f i 

fi # end of overwriting check 
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Special Characters 

. cshrc 

at usage, 211 
slow, 67 

with interactive shell, 68 
.login, 67 
/dev 

ownership, 54 
/etc/group 
searches, 26 
YP master server, 27 
/etc/hosts 
INR,51 

/tmp 

with NFS partitions, 355 

8 

800 USA-i-SUN 
use of, 364 

A 

ACCELL 

databases, 271 
address 

device drivers, 195 
address mask, 74 
addresses 

classes of, 391 
Internet, 391 
aliases 

mail, 291 
namestripes, 220 
sendmail, 269 

AnswerLine, 5,26,67.219,291,401, 605 
answermail 

script, 321,324 
script installation, 321 
architecture 
Prism, 287 
Sun4.403 
ARP, 393 
arrow keys 

mapping, 265 

asm 

with C source, 215 
assembler 
bugs, 416 


assembly code 

with C source, 215 
at 

used with . cshrc, 211 
at(l) 

answermail script, 321 

B 

back-to-back packets, 245 
bind 

port numbers, 213 
blocking 

using select 0,62 
Bourne shell 
bugs, 478 
broadcasting 
subnets, 391 
Browser 

installation, 612 
program, 611 
bsc3270 

bugs, 507 
bscrje 

bugs, 507 
buffer 

Ethernet, 245 
buffers 

color frame, 276 
frame, 358 

bug 

3/50 CPU board, 189 
reporting, 206 

bugs 

assembler, 83,416 
Bourne shell, 140,478 
bsc3270,103,507 
bscrje, 103, 507 
C compiler, 84,417 
CsheU, 140,478 
cgi, 120,454 
compiler library, 99, 437 
compiler utilities, 102,444 
compilers, 83,416 
Datacomm, 103, 507 
debugger, 90,423 
demo, 123 

diagnostics, 109,445 
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bugs, continued 
dna, 105, 511 
documentation. 111, 447 
driver, 460 
editor utility, 495 
formatter, 156,495 
FORTRAN compiler, 93,426 
FORTRAN documentation, 447 
gp, 123,456 
graphics, 120,454 
index entries, 347 
installation, 490 
kernel, 128,460 
linker, 440 
lint, 100,440 
USP, 170,528 
mail, 158, 497 
make, 158,498 
ModuIa2,171,529 
netwoik, 135,470 
network general, 474 
network library, 135,470 
network program, 137,474 
nfs, 135,470 
optimizer, 100,441 
PC-NFS, 530 
pixrect, 123, 457 
printer, 159,498 
program utility, 499 
protocol, 138,475 
setup, 4% 
sheU, 140,478 
sna3270, 108, 515 
SunAlis, 167,504 
SunAlis database, 504 
SunAlis documentation, 504 
SunAlis general, 504 
SunAlis spreadsheet, 505 
SunCORE, 124 
SunCORE documentation, 447 
SunCORE graphics, 457 
SunGKS, 520 
SunGKS library, 520 
SunINGRES, 168, 523 
StmlNGRES documentation. 523 
SutiINGRES general, 525 
SunINGRES library, 525 
SuriENGRES program, 527 
SunSimplify, 532 
SunSimplify library, 532 
SunSimplify program, 532 
SunUNIFY, 172,534 
SunView, 142,480 
SunView documentation, 448 
SunView library, 480 
SunView program, 486 
SunWindows, 488 
syscall, 467 

system administration, 148,490 

system administration documentation, 448 

system administration utilities, 494 

transcript, 531 

user manuals, 451 

utilities, 156,495 
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utility programs, 160 

UUCP, 165,501 
vtlOOtool, 108, 517 
X.25,517 
yeUow pages, 139 
Bulletin Board, 250 

c 

c 

calling NeWS, 407 
C compiler 
bugs, 417 
Cshen 

bugs, 478 
canvas 

colormaps, 282 
CDB 

errata, 296 
cgi 

bugs, 454 
checksum 

Ethernet, 380 
child processes 
dbxtool, 192 
PID, 192 

chip 

83586,188 
client 

sample programs, 13 
stream socket, 12 
color, 275 

maps, 276 
colormaps, 357 
compatibility 

Sun4 binary, 403 
SunView 2,597 
compiler utility 
bugs, 444 
compilers 

assembler bugs, 83,416 
bugs, 83,416 
C compiler bugs, 84,417 
compiler library bugs, 99,437 
debugger bugs, 90,423 
FORTRAN compiler bugs, 93,426 
linker bugs, 440 
lint bugs, 100,440 
optimizer bugs, 100,441 
utility bugs, 102 ,444 
configurations 

controllers, 580 
disks, 580 
Sun-2. 582 
Sun-3,581 
controller 

Ethernet, 245 
controllers 

combinations with disks, 581,582 
disk configurations, 580 
conversion 

color to monochrome, 358 
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corrections 

April TOM, 224 
routing, 296 

CPU 

multiple, 244 
CRLF 

end-of-line, 44 
cumulative index 
use of, 347 

Customs Software Services, 5,39 

D 

DARPA, 73 
databases 

incompatible, 271 
SunAlis database bugs, 504 
Datacomm 

bsc3270 bugs, 103, 507 
bscr je bugs, 103,507 
bugs, 103,507 
dna bugs, 105,511 
sna3270bugs, 108.515 
vtlOOtool bugs, 108,517 
X.25 bugs, 517 
datagrams 

firagm^tation of, 393 
reassembly of, 393 
daylight savings time 
kernel, 24 
dbxtool 

child processes, 192 
dd(l) 

slow disk test, 263 
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